如何把A列的数据转换成D\E列的格式？谢谢！

szqhb

jiminyanyan 发表于 2018-7-18 21:28
没看明白，举个例子。。

如果三年有4个班……有8个班，就要在代码里修改范围了。也就是说，你这个代码只能转换到第4行。

szqhb

jiminyanyan 发表于 2018-7-18 21:28
没看明白，举个例子。。

我的意思就是说，某年级不管有多少个班，使得代码都能正确运行。

jiminyanyan

szqhb 发表于 2018-7-18 23:53
我的意思就是说，某年级不管有多少个班，使得代码都能正确运行。

ar = .[a2:a4]
这句改一下就行呀，EH铁杆不会改？

jiminyanyan

szqhb 发表于 2018-7-18 23:53
我的意思就是说，某年级不管有多少个班，使得代码都能正确运行。

这样？
Sub aa()
Dim ar, i&, ar1, k&, ar2(), m&, n%
n = Application.InputBox("请输入姓名中需要间隔的空格数量：", "输入", , , , , , 1)
With Sheet1
    lr = .Range("a65535").End(xlUp).Row
    ar = .Range("a2:a" & lr)
    m = 1
    For i = 1 To UBound(ar)
        ar1 = Split(Split(ar(i, 1), "：")(1), "、")
        For k = 0 To UBound(ar1)
            m = m + 1
            ReDim Preserve ar2(1 To 2, 1 To m)
                ar2(1, 1) = "姓名"
                ar2(2, 1) = "班级"
                ar2(2, m) = Split(ar(i, 1), "：")(0)
                If Len(Trim(ar1(k))) = 2 Then
                    ar2(1, m) = Application.WorksheetFunction.Replace(ar1(k), 2, 0, Application.Rept(" ", n))
                Else
                    ar2(1, m) = ar1(k)
                End If
        Next
    Next
    .[j1].Resize(UBound(ar2, 2), UBound(ar2, 1)) = Application.Transpose(ar2)
End With
End Sub

jiminyanyan

szqhb 发表于 2018-7-18 23:41
如果三年有4个班……有8个班，就要在代码里修改范围了。也就是说，你这个代码只能转换到第4行。

。。。。。

szqhb

应该是这样。待电脑上网后测试

小花鹿

根本不用这么麻烦，直接在WORD中写代码打印就行了

szqhb

小花鹿 发表于 2018-7-21 00:12
根本不用这么麻烦，直接在WORD中写代码打印就行了

谢谢关注！那麻烦你写个代码参考一下。

szqhb

jiminyanyan 发表于 2018-7-19 13:24
。。。。。

可以啦，非常感谢！也曾经试着改“某列最后一个非空单元格行号”，不成功（后来又成功了）