求VBA扫码自动触发单元格分列

天真无鞋

求EXCEL VBA扫码自动触发单元格分列，如下：

555*555*333*555*555

分列555  555 333 555 555

shiruiqiang

changge事件，split（”*“）

天真无鞋

shiruiqiang 发表于 2024-1-11 21:14
changge事件，split（”*“）

感谢大哥的回答，不会写代码

sj15627581616

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Arr
   
3.     If Target.Address(0, 0) = "A1" Then
   
4.         Arr = VBA.Split([A1], "*")
   
5.         Range("B1").Resize(1, UBound(Arr) + 1) = Arr
   
6.     End If
   
7. End Sub
   

复制代码

具体差异 自行修改

天真无鞋

sj15627581616 发表于 2024-1-11 21:41
具体差异 自行修改

非常感谢。。。。。