☰

循环复制和粘贴

tag-icon • tag-icon microsoft-excel vba macros copy-paste
循环复制和粘贴

我在 Excel 中拥有从 1921 年到 2014 年的数据。年份按一个年份一个年份地排序。我想进行时间序列分析，但首先我需要管理按年份并排排序的数据集。数据如下（年份在 A 列中，值在 B 列中）：

*1922 -> first 110 value
*1923 -> second 110 value
…
*2014 -> last 110 value

我想将数据组织为：

*For 1922, moving data from B113:B223 to C2:D112
*For 1923, moving data from B224:B334 to D113:D223
*For 1924, moving data from B335:B445 to E224:E334

我写了宏，太简单了，不够用。应该有循环，但我搞不懂：

Sub RangeTest()
    On Error Resume Next
    Dim xRg As Range
    Set xRg = Application.Selection
    Range("B113:B223").Copy Range("C2:C112")
    xRg.Select
End Sub

我将非常感激你的帮助

答案1

C2=INDIRECT("R"&(COLUMN()*111+ROW()-222)&"C2", FALSE)

向下拖至 C112。

向右拖动直至 CQ2:CQ112。

然后选择 C2：CQ112，复制，粘贴特殊值。当然，如果需要的话。

相关内容