Excel欄位資料每30筆切割移到隔壁欄

Excel最多到256列

10000/30 = 333.33333333

會超出範圍...

B1
=IF(ROW()>30,"",OFFSET($A$1,(COLUMN(A1)-1)*30+ROW()-1,))

往下往右複製

2015-07-24 13:32:01 補充：
補充-如為兩欄
C1
=IF(ROW()>30,"",OFFSET($A$1,(ROUND(COLUMN(A1)/2,)-1)*30+ROW()-1,MOD(COLUMN(B1),2)))
往下往右複製

http://blog.xuite.net/hcm19522/twblog/327404098

Sub xx()
x = Application.RoundUp([A65536].End(xlUp).Row / 30, 0)
k = 3
y = 1
For i = 1 To x
Range("A" & y & ":B" & y + 29).Copy Cells(1, k)
k = k + 2
y = y + 30
Next
End Sub

您好，再請問一下，如果A、B欄都有資料，且須綁一起對照，譬如A欄是人名，B欄是電話，共一萬多筆，這函數要怎麼修改成每30筆連同人名+電話移到(C+D)欄...(E+F)...(G+H)...