[已解决]如何改进精简隔列复制代码

hhaa999

TXFTF6mC.rar (8.01 KB, 下载次数: 3)

2010-8-13 13:57 上传

点击文件名下载附件
如何改进精简隔列复制代码

最佳答案

月排行榜 / 总排行榜

knifefox

2010-8-13 14:15

Sub test()
    Dim i As Integer
    Dim EndRow As Long
    Dim Arr1, Arr2
    With Sheets(1)
        EndRow = .[A65536].End(xlUp).Row
        Arr1 = .Range("A3:A" & EndRow)
        Arr2 = .Range("C3:E" & EndRow)
    End With
    
    For i = 2 To Sheets.Count
        Sheets(i).[A4].Resize(EndRow - 2, 1) = Arr1
        Sheets(i).[B4].Resize(EndRow - 2, 3) = Arr2
    Next
End Sub

跳转到最佳答案楼层

knifefox

Sub test()
    Dim i As Integer
    Dim EndRow As Long
    Dim Arr1, Arr2
    With Sheets(1)
        EndRow = .[A65536].End(xlUp).Row
        Arr1 = .Range("A3:A" & EndRow)
        Arr2 = .Range("C3:E" & EndRow)
    End With
    
    For i = 2 To Sheets.Count
        Sheets(i).[A4].Resize(EndRow - 2, 1) = Arr1
        Sheets(i).[B4].Resize(EndRow - 2, 3) = Arr2
    Next
End Sub