Question

@ dan，@ minh＆amp; @erik，非常感谢您的时间和帮助。真的很感激。但是，我将不得不重新解释并解释我想要实现的目标。

我构建了一个笛卡尔积（一个表最多可以说20列，但行可能多达一千或更多 - 通常没有数字只是文本）并最终确定它并将其放在第1页上我希望将工作簿和宏或VBA代码复制并粘贴到同一工作簿的表2中：＆＃39; A＆＃39;第1页上的一行进入单元格＆＃39; A1＆＃39;第2页，＆＃39; B＆＃39;第1页的一行进入＆＃39; B1＆＃39;第2页等等，直到表格的末尾（＆＃39; Nth＆＃39; row into＆＃39; N1＆＃39;），如图2所示（红色到红色只是为了显示例如前5列）水平，在数据之间和列6到13之间的连字符：垂直前面有连字符。

抱歉这个混乱！再次感谢。

Fig 1 Sheet 1

Fig 2 Sheet 2

Answer 1

有很多方法可以解决这个问题，但是循环和面向对象编程的一些背景知识可以做到。也许在模块中尝试一些版本：

Sub main（）

Dim rowEnd As Long
rowEnd = Range("AA" & Rows.count).End(xlUp).Rows
For Each cl In Range("A1:A" & rowEnd)
    Range("A" & cl.Row).FormulaR1C1 = Range("AA" & cl.Row).Value
Next

End Sub

sub找到AA列的最后一行，然后迭代地将值从AA复制到每行的A.

相对参考副本＆amp;粘贴问题

1 个答案: