vba' 定位单个单元格（如A1单元格）Range("A1")' 定位单元格区域（如A1到C5区域）Range("A1:C5")' 结合工作表定位（避免跨工作表出错，推荐）Sheets("Sheet1").Range("A1")

vbaSheets("Sheet1").Range("A1:C100").Find(What:="要找的内容")

vbaSub 定位最后一行最后一列()' 定义工作表，避免跨表出错Dim ws As WorksheetSet ws = Sheets("Sheet1")' 1. 定位A列最后一行有数据的单元格（常用场景：给最后一行赋值、加合计）Dim lastRow As Long ' 存储最后一行的行号（用Long避免行数过多溢出）Dim lastRowRng As Range' 用Rows.Count获取Excel最大行数（无需记1048576），5代表E列，此处改为1代表A列（A列对应列号1）lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row' 根据行号定位到A列最后一行单元格Set lastRowRng = ws.Cells(lastRow, 1)' 给最后一行单元格赋值（示例：标注“合计”），并设置加粗With lastRowRng.Value = "合计".Font.Bold = True.Font.Color = RGB(0, 128, 0) ' 绿色字体End With' 2. 定位最后一列有数据的单元格（常用场景：确认数据范围、批量设置格式）Dim lastCol As Long ' 存储最后一列的列号Dim lastColRng As Range' 用Columns.Count获取Excel最大列数（无需记XFD1），1代表第1行lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column' 根据列号定位到第1行最后一列单元格Set lastColRng = ws.Cells(1, lastCol)' 给最后一列单元格标黄（示例：突出显示最后一列数据）lastColRng.Interior.Color = RGB(255, 255, 0)' 弹出提示，显示最后一行、最后一列的位置（方便核对）MsgBox "A列最后一行位置：" & lastRowRng.Address & vbCrLf & "最后一列位置：" & lastColRng.AddressEnd Sub

vbaSub 定位单元格赋值()' 定义工作表，避免出错Dim ws As WorksheetSet ws = Sheets("Sheet1")' 定位A1单元格，赋值+设置格式With ws.Range("A1").Value = "员工姓名".Font.Bold = True ' 加粗.Font.Color = RGB(255, 0, 0) ' 红色End With' 定位B1单元格，赋值+设置格式With ws.Range("B1").Value = "部门".Font.Bold = True.Font.Color = RGB(255, 0, 0)End With' 提示执行完成MsgBox "表头设置完成！"End Sub

vbaSub 查找内容并标注()' 定义变量Dim ws As WorksheetDim findRng As Range ' 找到的单元格Dim findContent As String ' 要查找的内容Dim startRng As Range ' 查找起始位置Dim count As Integer ' 统计匹配个数' 1. 设置参数（可根据自己的需求修改）Set ws = Sheets("Sheet1")findContent = "张三" ' 要查找的内容Set startRng = ws.Range("A1") ' 查找起始位置（从A1开始）count = 0 ' 初始化计数' 2. 清除之前的标注（避免重复标黄）ws.Range("A:A").Interior.Color = xlNone' 3. 开始查找（循环查找所有匹配项）Set findRng = ws.Range("A:A").Find(What:=findContent, After:=startRng, LookAt:=xlWhole)' 循环查找，直到找不到匹配项Do While Not findRng Is Nothing' 给找到的单元格标黄findRng.Interior.Color = RGB(255, 255, 0)' 计数+1count = count + 1' 继续查找下一个匹配项（避免重复查找同一个单元格）Set findRng = ws.Range("A:A").FindNext(After:=findRng)Loop' 4. 弹出提示If count > 0 ThenMsgBox "共找到" & count & "个""" & findContent & """，已标黄！"ElseMsgBox "未找到""" & findContent & """！"End IfEnd Sub