VBA:对Excel单元格进行合并操作
Sub hb()Dim nn = 3For i = 3 To 18If Range("b" & i) <> Range("b" & i + 1) ThenRange("b" & n & ":b" & i).Mergen = i + 1End IfNextEnd Sub
Sub hb()Dim nn = 3For i = 3 To 18If Range("b" & i) <> Range("b" & i + 1) ThenRange("b" & n & ":b" & i).Mergen = i + 1End IfNextEnd Sub