|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 qingc0221 于 2019-1-19 18:23 编辑
直接在SelectionChange里面写
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim i As Long, n As Long, LastRow As Long
- Dim Arr
-
- LastRow = Cells(Rows.Count, 1).End(xlUp).Row
- If Target.Count > 1 Or Target.Column <> 1 Or Target.Row > LastRow Then Exit Sub
-
- Range("C:C").ClearContents
- Arr = Range(Cells(Target.Row, 1), Cells(LastRow + 1, 1))
- For i = 1 To UBound(Arr, 1)
- If InStr(Arr(i, 1), "WE") Or InStr(Arr(i, 1), "CF") Then
- n = n + 1
- Cells(n, 3) = Arr(i, 1)
- End If
- Next i
- End Sub
复制代码 |
|