[已解决]字符分解并复制

c888

字符分解并分别复制到两个单元格中.rar (11.45 KB, 下载次数: 6)

2012-12-20 19:52 上传

点击文件名下载附件
窗体字符分解并分别复制到两个单元格中。谢谢！

最佳答案

月排行榜 / 总排行榜

zhoucs00

2012-12-20 21:19

1. Private Sub ComboBox1_Change()
   
2.    Dim arr
   
3.    Range("I2:I100").Clear
   
4.    arr = Split(ComboBox1.Text, "/")
   
5.    Range("I2").Resize(UBound(arr) + 1) = Application.WorksheetFunction.Transpose(arr)
   
6. End Sub

复制代码

经无聊的疯子前辈提醒，修改了下代码将循环换作了Resize，速度更快了。

跳转到最佳答案楼层

hoogle

字符分解并分别复制到两个单元格中.zip (13.18 KB, 下载次数: 15)

2012-12-20 20:05 上传

点击文件名下载附件

zhoucs00

1. Private Sub ComboBox1_Change()
   
2.    Dim arr, i As Byte, x As Byte
   
3.    Range("I2:I100").Clear
   
4.    x = 1
   
5.    arr = Split(ComboBox1.Text, "/")
   
6.    For i = 0 To UBound(arr)
   
7.       x = x + 1
   
8.       Cells(x, "I") = arr(i)
   
9.    Next i
   
10. End Sub

复制代码

在窗体代码中加入这段代码，试下。呵呵

zhoucs00

hoogle 发表于 2012-12-20 20:05

这评经验有啥作用？

hoogle

zhoucs00 发表于 2012-12-20 20:52
这评经验有啥作用？

评着玩，没什么用

zhoucs00

hoogle 发表于 2012-12-20 20:54
评着玩，没什么用

我还以为能加快升级

zhoucs00

1. Private Sub ComboBox1_Change()
   
2.    Dim arr
   
3.    Range("I2:I100").Clear
   
4.    arr = Split(ComboBox1.Text, "/")
   
5.    Range("I2").Resize(UBound(arr) + 1) = Application.WorksheetFunction.Transpose(arr)
   
6. End Sub

复制代码

经无聊的疯子前辈提醒，修改了下代码将循环换作了Resize，速度更快了。