好吧问答库 > excel表格怎么把A列60583个电话号码分为七列，急急急！！大神求指点

excel表格怎么把A列60583个电话号码分为七列，急急急！！大神求指点

2025年03月23日 14:31

有3个网友回答

网友（1）：

用宏：

Sub 转换()
arr = Range("A2").CurrentRegion.Resize(, 1)
ReDim brr(0 To Int(UBound(arr) / 7), 1 To 7)
h = 0
For i = 1 To UBound(arr)
    l = l + 1
    If l > 7 Then l = 1: h = h + 1
    brr(h, l) = arr(i, 1)
Next
Range("A2").CurrentRegion.ClearContents
[a1].Resize(h+1, l) = brr
End Sub

网友（2）：

在C1单元格输入以下公式，然后向右填充至第七列，向下填充公式到8655行。

=OFFSET($A$1,(ROW(A1)-1)*7+COLUMN(A1)-1,)

详见附图

网友（3）：

ctrl+G,定位对话框，引用位置中填入
A1:A9000
确定，
复制，到B1粘贴

再次定位，只是引用位置改成
A9001:A18000
复制，并到C1粘贴

。。。。
重复。

注：选定区域其实可以在地址栏中输入的，只是难得抓图，