VBA相关
2019-04-20 22:14
141 查看
Sub test()
Dim newnameindex
newnameindex = 6085
For i = 0 To 6082
Dim names
Dim namearray
names = Cells(i, 5)
If (InStr(1, names, ";") > 0) Then
namearray = Split(names, ";")
For j = 0 To UBound(namearray)
newnameindex = newnameindex + 1
Cells(newnameindex, 5) = namearray(j)
Next j
Cells(i, 5) = ""
End If
Next i
End Sub
相关文章推荐
- C# VBA 填充Word表格 ,并随意转移单元格焦点或插入文本,及相关文字的颜色、粗体等相关属性。
- VBA 相关
- 用vba生成Excel中内容相关超链接
- VBA相关的
- 【VBA研究】VBA中日期和时间相关的计算
- 【VBA研究】定时关闭MsgBox及相关未公开的API
- access vba form 相关
- VBA 相关常数
- VBA相关
- 关于“此工作薄已丢失了其VBA项目、ActiveX控件及其他任何与可编程序相关的功能”的提示的解决
- 此工作簿已丢失了其VBA项目 Activex控件以及其他任何与可编程序性相关的功能
- VBA相关知识点
- 淘汰VBA,用InfoPath----InfoPath相关文章两三篇
- VBA换行字符相关知识
- word的vba相关
- VBA IP相关的转换程序
- 【EXCEL】VBA操作相关资料
- 6月11日-6月17日 一周的总结(VBA相关)
- VBA 打印设置相关属性及方法
- VBA技术相关网站