vb，wps，excel 分裂

Sub 分列()'以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理Dim m As Range, tmpStr As String, s As StringDim x As Integer, y As Integer, subStr As StringIf MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _vbYesNoCancel + vbQuestion) <> vbYes Then Exit SubFor Each m In Selectionx = m.Column()y = m.Row()tmpStr = m.ValuesubStr = ""For i = 1 To Len(tmpStr)s = Mid(tmpStr, i, 1)If s = " " And subStr = "" Then  '连续的空格，忽略ElseIf s = " " And subStr <> " " Then '空格表示子串结束Cells(y, x).Value = subStrsubStr = ""x = x + 1ElseIf s <> " " Then  '新子串开始或进行中subStr = subStr & sEnd IfNext iIf subStr <> "" Then Cells(y, x).Value = subStrNext m
End Sub
Sub 分列2()'以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理Dim m As Range, tmpStr As String, s As StringDim x As Integer, y As Integer, subStr As StringIf MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _vbYesNoCancel + vbQuestion) <> vbYes Then Exit SubFor Each m In Selectionx = m.Column()y = m.Row()tmpStr = m.ValuesubStr = ""For i = 1 To Len(tmpStr)s = Mid(tmpStr, i, 1)If s = "," And subStr = "" Then  '连续的空格，忽略ElseIf s = "," And subStr <> "," Then '空格表示子串结束Cells(y, x).Value = subStrsubStr = ""x = x + 1ElseIf s <> "," Then  '新子串开始或进行中subStr = subStr & sEnd IfNext iIf subStr <> "" Then Cells(y, x).Value = subStrNext m
End Sub

转载于:https://www.cnblogs.com/--3q/p/9123413.html

vb，wps，excel 分裂相关推荐

wps excel批量获取网址标题（Title）
wps excel启用宏下载wps.vba.exe 链接: https://pan.baidu.com/s/1kMvoVfzzi719oAcfmoNpGw 密码: qn86 b站教程安装wps.v ...
[Office] WPS Excel通过添加宏实现多张表格合并
在我们使用Excel时,通常会遇到让各个地区.各个学院或下属单位收集数据的情况,有时还会每月.每周,甚至是每日调度数据,而当我们得到了这些Excel文件表格之后,很多同志会进行人工手动汇总,这大大降低 ...
【转】用VB操作Excel详解
用VB操作Excel详解一. VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1.在工程中引用MicrosoftExcel 类型库: 从"工程"菜 ...
VB与EXCEL的相互勾通
一. VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1.在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用& ...
还有：用VB创建Excel报表
还有:用VB创建Excel报表中科院软件所张炜在Visual Basic中制作报表,通常是用数据环境设计器(Data Environment ...
基于VB和EXCEL的报表设计及打印
基于VB和EXCEL的报表设计及打印文/朱诗兵高栓在现代管理信息系统的开发中,经常涉及到数据信息的分析.加工, 最终还需把统计结果形成 ...
VB封装excel chart
Dim obj Set obj = createObject("ChinaaspChart.pie") obj.AddValue "男", 150 obj.Ad ...
如何用VB实现Excel文件的自动合并
闲来无事,编写了一个简单而实用的合并Excel文件的函数,能够将多个XLS文件中指定数量的工作表自动合并到一个XLS文件里.当然,如果只是数据合并,则使用ADO就可以实现,但如果要保留表格格式,则恐怕 ...
VB中Excel 2010的导入导出操作
VB中Excel 2010的导入导出操作编写人:左丘文 2015-4-11 近来这已是第二篇在讨论VB的相关问题,今天在这里,我想与大家一起分享一下在VB中如何从Excel中导入数据和导出数据到Ex ...
WPS Excel表格条件格式在哪如何使用以大于500的数字飘红加粗为例
条件格式的功能是很强大的,可以实现很多的显示效果,可以满足某个条件的显示格式.它在软件中的位置与office有所不一样,在WPS表格中有两个位置可以找到它:格式-条件格式.下文以大于500的数字飘红, ...

vb，wps，excel 分裂

vb，wps，excel 分裂相关推荐

最新文章

热门文章