vba问题求助~~
想请问各位老师们~如何把下面这段代码变成工具化,就是可选择的模式~就是代码里面是写了C列作为查找列,如何把这个列变成按钮选择的方式,以及顿号也变成选择的方式~~请各位老师帮我看看~~ 还有就是如何把这段vba代码用在每一个Excel文件里面,就是不用复制代码,以一个工具的形式出现在Excel文件里~!求助~Sub test()
Dim n As Integer
Dim arr As Variant
Dim rcount As Long
Dim ArrayLength As Integer
rcount = Cells(Rows.Count, "C").End(3).Row
For r = rcount To 1 Step -1
arr = Split(Cells(r, "C").Value, "、")
ArrayLength = UBound(arr) - LBound(arr) + 1
For i = 1 To ArrayLength - 1
Rows(r & ":" & r).Copy
Rows(r + 1 & ":" & r + 1).Insert Shift:=xlDown
Next i
Cells(r, "C").Resize(ArrayLength, 1).Value = WorksheetFunction.Transpose(arr)
Erase arr
Next r
Application.CutCopyMode = False
End Sub
页:
[1]