1. vba判断单元格内容

1、全选所有单元格，右键－单元格格式－保护－把 锁定 旁边的那个勾去掉

2、选择需要隐藏保护的列，右键－单元格格式－保护－把 锁定 旁边的那个勾选上

3、隐藏要保护的列

4、工具菜单－保护－保护工作表，输入密码，仅选择允许用户编辑 未锁定单元格，确认再输入密码即可然后隐藏的列就不可以显示了，其它单元格都可以编辑

2. VBA判断单元格内容并提示

方法/步骤

第一，新建一个空白EXCEL2003版的文档，然后点击视图——工具栏——窗体，方便使用命令按钮来操作宏。

第二，拖出命令按钮。在窗体工具栏那里点击选择命令按钮——在EXCEL表格那里画一个方框命令按钮就出来了。

第三，重命名命令按钮。为了方便操作，命令按钮以它的用途来命名，点击命令按钮的文字框——删除原有的文字——输入：判定重复数据。这样就重新命名好了。

第四，打开命令按钮代码编辑窗口：右击命令按钮——指定宏——新建——这时就会弹出代码编辑窗口出来。

第五，在代码编辑窗口那里，可以更sub开头的宏名称，修改容易明白是什么用途的宏，也可以不用修改——然后在中间那里输入如下代码：

Dim arr, brr()

Dim I As Integer, j As Integer

Dim Dict As Object

On Error Resume Next

Set Dict = CreateObject("scripting.dictionary")

With ActiveSheet

arr = Intersect(.UsedRange, .Columns(1))

For I = 1 To UBound(arr)

If Dict.exists(arr(I, 1)) Then

Dict.Item(arr(I, 1)) = Dict.Item(arr(I, 1)) + 1

Else

Dict.Item(arr(I, 1)) = 1

End If

Next I

For I = 1 To UBound(arr)

j = j + 1

ReDim Preserve brr(1 To j)

brr(j) = IIf(Dict.Item(arr(I, 1)) = 1, "唯一", "重复")

Next I

.Columns(2).ClearContents

.Range("b1").Resize(UBound(brr), 1) = WorksheetFunction.Transpose(brr)

End With

第六，编辑完成后关闭退出VBA编辑器——在A列输入数据——输入完成后，点击判定重复数据命令按钮，这时就会在B列显示重复，如果是唯一就会显示唯一

3. vba判断单元格内容是否为空

答excel vba去掉看不到的特殊符号的方法如下；

第一步、复制你需要删除的特殊符号，鼠标双击单元格，只复制需要删除的部分内容

第二步、按CTRL+H，或者选择菜单里面的替换，查找内容处粘贴你刚才复制的内容，替换为保留为空，选择全部替换。

4. VBA判断单元格内容相同

用函数like设定两个变量a，b接收两个单元格的数据，flag变量得到比较结果。a=range("a1");b=a=range("b1")flag= a like b如果flag=true，则表示两个单元格数据相同；false值，数据不同。

5. vba如何判断单元格的内容是数字

VBA判断单元格是否包含某字符使用InStr函数，与工作表的FIND函数类似。InStr函数的帮助信息如下：程序中判断是否包含，可以这样写VBA代码：IfInStr("111a222","a")=0ThenMsgBox"不包含"ElseMsgBox"包含"执行示例：

6. vba判断单元格内容的大小

要使所选中单元格字体变黑体，颜色变红色，大小变11号，可将以下代码加在工作表上：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target.Font.Size = 11

Target.Font.FontStyle = Bold

Target.Font.Name = "黑体"

Target.Font.ColorIndex = 3

End Sub

7. VBA判断单元格内容次数

你可以用VBA来设置一个打开次数，将打开的次数记录在一个文本文件中，然后每次打开时执行文件文件里的数，并且在退出时将文本文件里的数值加上1，将达到次数条件时就进行自动删除，然后这个文件就彻底从电脑中删除去了！这个不难，VBA你会吧，根据我的说法去做，很容易达到你想要的条件的！