如何使用VBA复制具有不同长度的行中的单元格

Question

我试图连续复制单元格，但每行都有不同的长度。 例如：Row1具有来自A1：H1的数据     Row2具有来自A2：L2的数据     Row3具有来自A3：D3的数据 通常的代码是.Range（.Cells（i，＆＃34; A＆＃34;），。Cells（i，＆＃34; H＆＃34;））。复制 但是在一个循环中如何使这个检测行的长度？

谢谢！

Answer 1

试试这个：

Sub CopyRows
    Dim intCounter as Integer
    For intCounter = 1 to Cells(Rows.Count,1).End(xlUp).Row
        Range(Cells(intcounter,1), Cells(intcounter,Columns.Count).End(xlToLeft).Column)).Copy
        ' Copy your stuff, where you want
    Next intCounter
End sub

在您的具体案例中：

.Range(.Cells(i,1),.Cells(i,.Cells(i,Columns.Count).End(xlToLeft).Column)).Copy