我有一个 24 小时需求(行)乘 365 天(列)的数据集,我需要将其转换为一个连续的垂直数据系列。换句话说,创建一个宏,复制第二天的数据并将其粘贴到第一天的下方,依此类推,直到今年的余额。
我从 Manji 那里找到了一个相关的答案(我认为..),但我没有足够的经验来使这段代码适应我的需要。有人可以指出我正确的方向吗?
这是我正在查看的内容:
Sub Macro1()
'
' Macro1 Macro
'
'
Dim oRange As range
Dim startColumn As String
Dim rangestart As Integer
Dim rangeEnd As Integer
Dim cellcount As Integer
Dim i As Integer
startColumn = "A"
rangestart = 1
rangeEnd = 24
cellcount = rangeEnd - rangestart + 1
For i = 1 To cellcount - 1
Set oRange = ActiveSheet.range(startColumn & rangestart & ":" & startColumn & (rangeEnd - i))
oRange.Copy
oRange.Offset(i, i).PasteSpecial xlPasteAll
Set oRange = ActiveSheet.range(startColumn & (rangeEnd - i + 1) & ":" & startColumn & rangeEnd)
oRange.Copy
oRange.Offset((-1 * cellcount) + i, i).PasteSpecial xlPasteAll
Next i
End Sub