不论你点击一个单元格还是选择一个区域,你最先点击的单元格就是活动单元格
1 '活动单元格:activecell,工作表中活动单元格只有一个 2 Sub activecells() 3 a = activecell.Address '取得活动单元格地址 4 Cells(2, 3).Activate '激活指定单元格 5 End Sub 6 7 'selection光标所选区域 8 Sub 光标所选区域() 9 Selection = 1 '把所选的区域都赋值为1 10 End Sub 11 12 Sub 在selection中的改变活单元格() '在一个区域里逐个激活单元格 13 For i = 1 To Selection.Count '利用 for循环 和 区域.count 14 Selection(i).Activate '没什么用 15 Next 16 End Sub 17 Sub 运用() 18 Dim i As Range 19 For Each i In Selection 20 If i = "" Or i = "缺勤" Then 21 i = "×" 22 End If 23 Next i 24 End Sub 25 26 '小结:selection的好处在于,可以很自由灵活选择你想要处理的单元格区域 27 28 29 30 Sub 自己写() 31 Dim text As Range 32 For Each text In Selection 'for each in 真正的有用,可以改单元格内容 33 If text = "" Or text = "缺勤" Then 34 text = "x" 35 End If 36 Next 37 End Sub