作者：乔山办公网日期：
返回目录：excel表格制作
Sub 宏1()
If Range("a10000").End(xlUp).Row <> Range("B10000").End(xlUp).Row Then
Dim x
x = Range("B10000").End(xlUp).Row - Range("a10000").End(xlUp).Row
Range("b1:b" & x).Delete Shift:=xlUp
End If
End SuB
Sub 宏1()
If Range("a10000").End(xlUp).Row <> Range("B10000").End(xlUp).Row Then
Dim x
x = Range("B10000").End(xlUp).Row - Range("a10000").End(xlUp).Row
Range("b1:b" & x).Delete Shift:=xlUp
End If
End SuB