VBA代码:
Sub test()
Dim reg As Object
Dim mat, m, st
Dim rg As Range
Set reg = CreateObject("VBScript.RegExp")
For Each rg In Range("a1:a" & [a65536].End(xlUp).Row)
VBA代码:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim arr, i%
If Target.Column = 2 Then
Range("b:b").Interior.ColorIndex = xlNone
[<] [732] [733] 734 [735] [736] [>]