我有一系列数据列,每列 15 行深。B 列是我要按顺序将所有其他列移到下面的列。因此,C 列的内容被剪切并移动到 B 中已经存在的内容之下,依此类推。
到目前为止,我有;
'Select a column
ActiveSheet.Range("B1", ActiveSheet.Range("B1").End(xlDown)).Select
'Cut
Selection.Cut
'Select cell at bottom of A
ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select
'Paste
ActiveSheet.Paste
我需要循环使其工作,循环从 A 到 FN 的所有列。
提前致谢。