有一個大量資料如下圖
想要變成 A欄之後的欄位資料 隔1格貼上A欄
Sub button1_click()
Dim colNum As Long
colNum = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 2 To colNum
Range("B2").Select
Cells(2, i).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("A2").Select
r = Range("A2").End(xlDown).Row + 1
Range("A" & r).Select
ActiveSheet.Paste
Next
Application.CutCopyMode = False
Range("A2").Select
End Sub
目前程式無法隔1格貼上
想問一下要怎麼修改
我跑題一下。
我是用函數寫了一個。
A6空格。
A7輸入公式:
=IF(COUNT($A$6:A6)<COUNT(INDIRECT("R"&1&"C2"&":R20C"&COUNTIF($A$1:A6,"")+1,FALSE)),INDIRECT("R"&ROW()-SUMPRODUCT(MAX(($A$6:A6="")*ROW($A$6:A6)))&"C"&COUNTIF($A$1:A6,"")+1,FALSE),"")
再向下複製到其他儲存格。