excel 每隔6列实现自动换行

发布网友发布时间：2022-04-29 15:30

共3个回答

热心网友时间：2022-05-09 15:50

如图，假设数据从A1开始。

Sub DD()
Dim i As Integer, ii As Integer, iii As Integer, n As Integer
iii = Range("A1").CurrentRegion.Rows.Count
n = 0
For i = 1 To iii
    ii = 1
    Do
        If Cells(i, ii) <> "" Then
            Cells(iii + 2 + Int((ii - 1) / 16) + n, (ii - 1) Mod 16 + 1) = Cells(i, ii).Value
            ii = ii + 1
        End If
    Loop Until Cells(i, ii) = ""
    n = n + Application.WorksheetFunction.Ceiling((ii-1) / 16, 1) + 1
Next
End Sub

追问厉害了，我把16改成12还是正常使用

热心网友时间：2022-05-09 17:08

A5输入

=IF(MOD(ROW(1:1),5)=0,"",OFFSET(A$1,ROW(1:1)/5,MOD(ROW(1:1)*16-16,80)))

回车并向右填充到P5，再一起向下填充。

追问效果良好，然后我还在试其他间隔

追答公式里面的数值：
5——你要的4行数据，加上1空行：4+1=5。
16——一行16个单元格（16个数值）。
80——每行16个单元格计4行，加上1空行：16*(4+1)=80
可根据自己的需要修改。

热心网友时间：2022-05-09 18:43

我难道会告诉你我用的是EXCEL必备工具箱这个插件么。。。

追问哪个插件？