如何用VBA选定占用BCD三列的城市后将其复制到A列中，如图

zl1975

sue1092

请参考一下！

zl1975

sue1092 发表于 2014-7-16 07:34
请参考一下！

文件打不开

sue1092

07版的EXCEL,下个兼容的安装一下

nbchn

Sub 复制数据()
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Dim WW As Long, XX As Long, YY As Long, ZZ As Long
    WW = Cells.Find("*", , , , 1, 2).Row
    YY = Cells.Find("*", , , , 2, 2).Column
    For XX = 1 To WW
        For ZZ = 2 To YY
            If Cells(XX, ZZ) <> "" Then Cells(XX, 1) = Cells(XX, ZZ)
        Next
    Next
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.Calculation = xlCalculationAutomatic
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub