檔案裡需要一個叫STOR的工作表,巨集啟動時請確保資料頁是啟動中的狀態,然後執行以下巨集

Sub Stor()
For ONE = 1 To Range("A1048576").End(xlUp).Row Step 225
    For I = 1 To 5
        ActiveSheet.Range(Cells(ONE + ((I - 1) * 45), 1), Cells((ONE + ((I - 1) * 45)) + 44, 1)).Copy
        Sheets("Stor").Cells((NUL * 45) + 1, I).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next I
    NUL = NUL + 1
Next ONE
End Sub

重點說明:
第二行:執行迴圈從1到a欄的最後一個row,且每一迴圈是以累加225的方式進行
第三行:執行迴圈1到5
第四行:透過計算one上層迴圈及i 目前迴圈進行 + - * / 計算出應copy的資料欄位
第五行:透過計算nul變數及i目前迴圈數進行 + - * / 計算出應貼上的欄位,這裡要注意的是第一次計算時nul是空值,也就是說0 * 45 還是 0 ,加上1後第一次貼上的位置是A1
第七行:NUL在這裡才開始給予值,延遲賦值的原因是避免第一次貼上發生錯誤.

這題我比較懶
我是用公式做
假設資料在「工作表1」
那麼在「工作表2」設定一個公式
從欄A到欄E,列要設多少列隨便
不管是A多少到E多少
都是設同一個公式如下

=OFFSET(工作表1!$A$1,QUOTIENT(ROW()-1,45)*225+MOD(ROW()-1,45)+1+(COLUMN()-1)*45-1,0)

另外
如果要改每頁的欄數或列數
只要改
其中那個45是 每頁「每欄的列數」
225則是 每頁「總筆數」(=45*5)

只要公式即可，不用巨集

利用 row() column() 練習，就能將原本的資料（行數），計算出來
=INT((ROW()-1)/45)X45X5 + MOD(ROW()-1,45)+1+COLUMN()45-45
將這貼到 455 的空間，往下複制，就看的出

1 46 91 136 181
2 47 92 137 182
3 48 93 138 183

43 88 133 178 223
44 89 134 179 224
45 90 135 180 225
226 271 316 361 406
227 272 317 362 407
228 273 318 363 408
229 274 319 364 409

之後只要會用 indirect 指令

=INDIRECT("Sheet1!A"&A1)
就能從 sheet1 抓 a1 a2 a3 的資料