如何自动拆分零件途径站点，并标注起、始点

ykcbf1100

代码如下：

1. Sub ykcbf()  '//2024.3.1
   
2.     ReDim brr(1 To 10000, 1 To 3)
   
3.     With Sheets("source data")
   
4.         arr = .UsedRange
   
5.         For i = 2 To UBound(arr)
   
6.             st = WorksheetFunction.Trim(arr(i, 2))
   
7.             b = Split(st, "/")
   
8.             For x = 0 To UBound(b) - 1
   
9.                 m = m + 1
   
10.                 brr(m, 1) = arr(i, 1)
    
11.                 brr(m, 2) = Trim(b(x))
    
12.                 brr(m, 3) = Trim(b(x + 1))
    
13.             Next
    
14.         Next
    
15.     End With
    
16.     With Sheets("analyzing")
    
17.         .UsedRange.Offset(1).Clear
    
18.         .Cells.Interior.ColorIndex = 0
    
19.         With .[a2].Resize(m, 3)
    
20.             .Value = brr
    
21.             .Borders.LineStyle = 1
    
22.             .HorizontalAlignment = xlCenter
    
23.             .VerticalAlignment = xlCenter
    
24.         End With
    
25.         .[a1].Resize(1, 3).Interior.Color = 49407
    
26.         .[a2].Resize(m, 1).Interior.Color = 5296274
    
27.     End With
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

飞天篮球猪

仅供参考

今铭昔

sunya_0529

WPS里的JSA练习一下——

LV草地

gwjkkkkk 发表于 2024-3-1 20:30
请参考。。。

大神，你好！您这个公式里是否对数据处理数量有限制？ 如果source页里有大于600行数据时他就会报错：如下图

LV草地

ykcbf1100 发表于 2024-3-1 20:56
参与一下。。。

还是您的公式更顺畅，没有数量限制（起码800行原数据可以得到快速处理）
赞！👍

LV草地

cnmlgb9998 发表于 2024-3-1 20:47

感谢大神支持！

LV草地

gwjkkkkk 发表于 2024-3-1 20:53
根据引用数据，折分第二列数据，大致这个意思。

感谢快速回复！

saghj

交个作业

LV草地

ykcbf1100 发表于 2024-3-1 20:56
参与一下。。。

请教一下关于页面里的”转换“按钮能不能剪切到其他页面？

我前面有一页是变量，想直接剪切到变量表那一页里。

感谢支持！