原公式單一儲存格寫法, 實驗數據60筆為一短斷點
...
使用VBA
顯示記憶體不足, 或是Rows 變數未定義.
請問各高手建議我如何做修正?
已邀請的邦友 {{ invite_list.length }}/5
Sub samp()
Dim i, J, x
Sheets("工作表1").Select
Range("A1").Select
J = Int(ActiveSheet.UsedRange.Rows.Count / 60) + 1
For x = 1 To 14
For i = 1 To J
Sheets("工作表2").Cells(i, x) = Sheets("工作表1").Cells(i * 60 - 59, x)
Next
Next
End Sub
我只是比較好奇，你原本公式，
只是想讓工作表2比如說 A整欄分別等於工作表1 第二列的值嗎？
因為如果是這樣，你直接複製 然後選擇性貼上（轉置）會比較快。
iThome鐵人賽
看影片追技術