求助大神通过VBA将一列混合数据根据内容分在不同的列

谢宝庆

将图一所示

图1

     转化为        

   图二

quqiyuan

附件。。。

谢宝庆

忘记上传附件了

谢宝庆

忘记上传附件了 Book1.rar (48.62 KB, 下载次数: 7)

2024-6-27 23:06 上传

点击文件名下载附件

ykcbf1100

你这个数据不规范，取数容易错位

ynzsvt

1. Sub 一列换多列()
   
2. Dim i&, j&, k&, L&
   
3. L = 0: k = 3
   
4. For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
5.   If Left(Cells(i, 1), 3) = "编号：" Then
   
6.    L = L + 1: j = k
   
7.   Else
   
8.    j = j + 1
   
9.   End If
   
10.   Cells(L, j) = Cells(i, 1)
    
11. Next i
    
12. End Sub

复制代码

谢宝庆

ynzsvt 发表于 2024-6-28 07:38

我研究研究

谢宝庆

ynzsvt 发表于 2024-6-28 07:38

你好，首先非常感谢您的解答，基本解决了我的问题，但是美中不足的是其中有几行并在了一起

ynzsvt

谢宝庆 发表于 2024-6-28 17:52
你好，首先非常感谢您的解答，基本解决了我的问题，但是美中不足的是其中有几行并在了一起

可以改成两个字符比较，这样就不会并行了。