按分隔符拆分单元格

ykcbf1100

无敌小猪猪 发表于 2024-12-9 09:06
Sub ykcbf_Array()   '//2024.12.9
    Dim ws As Worksheet
    Set ws = Sheets("分列")

一次性写入这玩意天天用的，还能不会？！

比你改的这个简短吧。

沧海一粟123123

Sub test()
Dim arr
Dim k, x, y As Integer
Dim brr, crr(1 To 5000, 1 To 10)

k = Range("b65536").End(xlUp).Row
arr = Range("b1:b" & k)
For x = 1 To UBound(arr)
    brr = Split(arr(x, 1), ",")
    For y = 0 To UBound(brr)
        crr(x, y + 1) = brr(y)
    Next y
Next x
Range("c1").Resize(UBound(crr), 10) = crr
   
End Sub

lizhipei78

cnmlgb9998 发表于 2024-12-9 11:51
看见没，这才是 真正帮到人的 好代码

日常表格都是万行左右，差别不大，上了十万行以后那就有很必要

阿哩木

ykcbf1100 发表于 2024-12-9 13:18
一次性写入这玩意天天用的，还能不会？！

比你改的这个简短吧。

谢谢大佬！！！！！