t=timer
'
Cells(Rows.Count, 1).End(xlUp).Row 获取第一列最后一个非空单元格的行号
s = Cells(
1
, Columns.Count).End(xlToLeft).Column
'
获取第一行最后一个非空单元格的列号
For i =
1
To s
Columns(i).Select
Selection.TextToColumns Destination:
=Cells(
1
, i), DataType:=
xlDelimited, _
TextQualifier:
=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=
True, _
Semicolon:
=False, Comma:=False, Space:=False, Other:=
False, FieldInfo _
:
=Array(
1
,
2
), TrailingMinusNumbers:=
True
Next i
MsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "友情提示!!" '//提示
End Sub
转载于:https://www.cnblogs.com/scai/p/10075927.html
原文链接：
http://www.cnblogs.com/scai/p/10075927.html
今天小编要和大家分享的是，
Excel
VBA
收纳箱：如何将一列数据转为
文本
文件
内容
的操作，如下图所示的A列数据。6."弹出界面我们输入如下代码。Sub 另存为
文本
文档()10.好了，即可看到我们导出的
文本
文件
内容
，双击该文件。3.
Excel
VBA
收纳箱：将一列数据转为
文本
文件
内容
。11.然后就可以看到导出成功的数据
内容
。8.确定后搜索找到我们刚才编写的命令。7.并设置函数类别和函数说明。如果经验帮到了你，请记得分享！4.接着我们选择收纳箱操作。5.接着选择本地新建命令。9.并单击执行按钮。
好的应用离不开友好的界面，在开发
VBA
应用时，经常需要用到设置
单元格
的格式，包括数据格式、字体、对齐模式、
单元格
宽度、
单元格
高度、
单元格
文本
的自动换行、
单元格
背景颜色，文字颜色、
单元格
线型等等。本文通过实例，详细展示了如何方便的设置
单元格
的各种格式，可以作为初学者的一个较全面的参考。
'1.函数作用：返回 Column 英文字........................9
'2.函数作用：查询某一值第num次出现的值................9
'3.函数作用：返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额.............................10
'4.函数作用：从形如"123545ABCDE"的字符串中取出数字....11
'5.函数作用：从形如"ABCD12455EDF"的字符串中取出数字...11
'6.函数作用：按SplitType取得RangeName串值中的起始位置12
'7.函数作用:将金额数字转成中文大写....................13
'8.函数作用:计算某种税金..............................18
'9.函数作用:人民币大、小写
转换
........................19
'10.函数作用:查汉字区位码.............................20
'11.函数作用:把公元年转为农历.........................21
'12.函数作用:返回指定列数的列标.......................42
'13.函数作用:用指定字符替换某字符.....................43
'14.函数作用:从右边开始查找指定字符在字符串中的位置...43
'15.函数作用:从右边开始查找指定字符在字符串中的位置...44
'16.函数作用:计算工龄.................................44
'17.函数作用:计算日期差，除去星期六、星期日...........45
'18.函数作用:将英文字反转的自定函数...................46
'19.函数作用:计算个人所得税...........................46
'20.函数作用:一个能计算是否有重复单元的函数...........47
'21.数字金额转中文大写................................48
'22.函数作用:将数字转成英文...........................49
'23.函数作用:人民币大小写
转换
.........................52
'24.函数作用:获取区域颜色值...........................53
'25.函数作用:获取活动工作表名.........................53
'26.函数作用:获取最后一行行数.........................54
'27.函数作用:判断是否连接在线.........................54
'28.函数作用:币种
转换
.................................54
'29.函数作用:检验工作表是否有可打印
内容
...............55
'30.函数作用:查找一字符串(withinstr)在另一字符串中(findstr1)中某一次(startnum)出现时的位置，返回零表示没找到。..................................................57
'31.函数作用:增加文件路径最后的“\”符号..............58
'32.函数作用:计算所得税...............................58
'33.函数作用:从工作表第一行的标题文字以数字形式返回所在列号..................................................58
'34.函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和..........................59
'35.函数作用:返回 Column 英文字.......................60
'36.函数作用:查找指定列名的列数.......................60
'37.函数作用:文字格式的时间(分:秒)转化为数字格式(秒)..61
'38.函数作用:将"hh:mm:ss"格式的时分秒数
转换
成秒数.....62
'39.函数作用:金额中文大写转数字.......................62
'40.函数作用:把角度转为度秒分、弧度等显示.............63
'41.函数作用:身份证号码侦测...........................64
'42.函数作用:显示公式.................................65
'43.函数作用:方便财务人员理帐查找.....................66
'44.函数作用:数值
转换
为字符地址.......................68
'45.函数作用:字符地址
转换
为数值.......................69
'46.函数作用:等待时间（以秒计算）.....................69
'47.函数作用:得到字符串实际的长度（以单字节记）.......70
'48.函数作用:18位身份证最后一位有效性验证............70
'49.函数作用:计算符合maturity condition的拆解金额....72
'50.函数作用:对多个用同一分隔符分隔的待查找元素，逐一在表区域首列内搜索，将返回选定
单元格
的值相加，............72
'51.函数作用:根据个人所得税（工资）反算工资数.........73
'52.函数作用:判断表是否存在...........................74
'53.函数作用:角度转弧.................................74
'54.函数作用:比较相同的字符串.........................75
'55.函数作用:对选定的数组进行排序.....................76
'56.函数作用:取得指定月份天数.........................77
'57.函数作用:排序工作表活页薄.........................77
'58.函数作用:统计数组中非重复数据个数.................78
'59.函数作用:摘取子字符串.............................79
'60.函数作用:计算20000余个汉字的笔画.................79
'61.函数作用:删除当前工作表中的全部超连接.............80
'62.函数作用:取得相近数据.............................81
'63.函数作用:提取定串中汉字...........................81
'64.函数作用:搜索重复数据(选定范围)...................81
'65.函数作用:字符型转数字型...........................82
'66.函数作用:小写人民币转大写人民币...................83
'67.函数作用:取得指定月份人星期天个数.................84
'68.函数作用:侦测档案是否包含宏.......................84
'69.函数作用:获取循环参照
单元格
.......................85
'70.函数作用:创建桌面快捷方式.........................86
'71.函数作用:自动建立多级目录.........................86
'72.函数作用:统计经筛选后符合条件的记录条数...........87
'73.函数作用:复制
单元格
列高与栏宽.....................87
'74.函数作用:取消隐藏工作表（包括
vba
Project工程保护的)88
'75.函数作用:删除
单元格
自定义名称.....................88
'76.函数作用:从文件路径中取得文件名...................89
'77.函数作用:取得一个文件的扩展名.....................89
'78.函数作用:取得一个文件的路径.......................90
'79.函数作用:十进制转二进制...........................90
'80.函数作用:检查一个数组是否为空.....................90
'81.函数作用:字母栏名转数字栏名.......................91
'82.函数作用:数字栏名转文字栏名.......................91
'83.函数作用:判断一件活页夹中是否还有子目录...........92
'84.函数作用:判断一个文件是否在使用中.................92
'85.函数作用:列出档案详细摘要信息.....................93
'86.函数作用:获取菜单ID编号及名称列表................93
'87.函数作用:状态列动态显示文字.......................94
'88.函数作用:取得一个文件的路径2.....................94
'89.函数作用:取得一个文件的路径3.....................95
'90.函数作用:取得Activecell的栏名....................95
'91.函数作用:取得
单元格
中指定字符前的字符.............95
'92.函数作用:前
单元格
指定字符前的字符颜色
改成
红色.....95
'93.函数作用:根据数字返回对应的字母列号...............96
'94.函数作用:取工作表名字.............................96
'95.函数作用:取消所有隐藏的宏表.......................97
'96.函数作用:导出
VBA
Project代码.....................97
'97.函数作用:导入
VBA
Project代码.....................97
'98.函数作用:取得汉字拼音的第一个字母.................98
'99.函数作用:获取两栏中相同的数据....................100
'100.函数作用:选取当前工作表中公式出错的
单元格
﹐关返回出错个数...............................................101
'101.函数作用:将工作表中最后一列作为页脚打印在每一面页尾101
'102.函数作用:获取vbproject引用项目.................102
'103.函数作用:移除
Excel
工作表中的外部数据连接.......103
'104.函数作用:将选择定
单元格
作成镜像图片.............103
'105.函数作用:反选择
单元格
中的数.....................105
'106.函数作用:在
Excel
中加入一个量度尺(以厘米为单位).106
'107.函数作用:在
Excel
中加入一个量度尺(以寸为单位)...109
'108.函数作用:取得一个短文件名的长文件名.............111
'109.函数作用:取得临时文件名.........................112
'110.函数作用:等用Shell调用的程序执行完成后再执行其它程序...................................................112
'111.函数作用:将Mouse显示成动画.....................113
'112.函数作用:限制Mouse移动范围.....................114
'113.函数作用:取得当前激活窗品句柄及标题.............114
'114.函数作用:取得屏幕分辨率.........................115
'115.函数作用:自动建立多级目录.......................115
'116.函数作用:将文件长度置零.........................116
'117.函数作用:读取WIN9X / Me共享文件夹密码..........116
'118.函数作用:取得预设的打印机及设置预设的打印机.....119
'119.函数作用:获得当前操作系统的打印机个数及检测打印是否存在.................................................120
'120.函数作用:枚举打印机名称清单.....................120
'121.函数作用:读取网络服务器当前时间.................122
'122.函数作用:下载文件到指定目录.....................123
'123.函数作用:自动映射网络驱动器.....................124
'124.函数作用:自动断开网络驱动器.....................125
'125.函数作用:连接选定
单元格
中的
内容
.................125
'126.函数作用:获取一个
单元格
中有指定字体颜色部份数据.126
'127.函数作用:对指定文件加XLS加密...................126
'128.函数作用:选择指定范围内使用了填充颜色的
单元格
...127
'129.函数作用:在特定的区域内查找
文本
,返回值是包含查找
文本
的
单元格
...........................................127
'130.函数作用:返回特定区域中最大值的地址.............128
'131.函数作用:删除表格中使用范围内的所有空白
单元格
...129
'132.函数作用:返回数组中有多少个指定的字符串.........129
'133.函数作用:返回当前工作表中引用了指定的单元的地址.130
'134.函数作用:获取
Excel
中字型列表...................131
'135.函数作用:获取一个字符串中有多少个数字字符.......131
'136.函数作用:在
Excel
中对多列进行填充...............131
'137.函数作用:对选定的范围进行数据填充（忽略
单元格
格式）132
'138.函数作用:
VBA
Project加密及解密.................132
'139.函数作用:列出收藏夹中的网址.....................133
'140.函数作用:计算两个日期之间相隔的年份,比如年龄,工龄等.可计算从1000年01月01日起的日期....................134
'141.函数作用:从字符串提取纯数字.....................135
'142.函数作用:将一个数组按升序排列...................136
'143.函数作用:将一个数组按降序排列...................137
'144.函数作用:删除空白列.............................137
'145.函数作用:判断工作表是否为空白...................138
'146.函数作用:将数据按类分到不同工作薄...............138
'147.函数作用:
单元格
内数据排序.......................139
'148.函数作用:对多栏排序.............................140
'149.函数作用:返回计算公式的值 [,值的计算公式].......140
'150.函数作用:把第一列=某个值对应的第二列的
内容
连在一起，并用、隔开...........................................141
'151.函数作用:取得系统使用模式.......................142
'152.函数作用:计算机注销/关机/重启...................142
'153.函数作用:更改计算机名称.........................143
'154.函数作用:从n位开始取出字符串中的汉字、英文字母、数字...................................................143
'155.函数作用:在指定列中寻找含有指定字符串的
单元格
，并将符合条件的
单元格
标为红色，并将对应的下一列
单元格
赋值为1。.....................................................144
'156.函数作用:清除字符串中的空格.....................145
'157.函数作用:查找合并
单元格
位置.....................145
'158.函数作用:阴阳历
转换
和阴阳历生日.................145
'159.函数作用:利用数组和Substitute来替换某字符......149
'160.函数作用:一键创建斜线表头.......................150
'161.函数作用:自动获取指定月的工作日.................151
【注意】将word中的公式编辑器
转换
成word自带公式，
vba
直接用word的开发工具-Visual basic工具打开导入！
【1】需要先通过mathtype的格式化选项卡-
转换
公式-mathtype/MathML2.0(namespaceattr）进行文档初步处理成公式乱码
【2】运行宏一键
转换
！
【3】详细操作请见本人博客：将word中的公式编辑器
转换
成word自带公式
irow = ActiveSheet.UsedRange.Rows.Count
For i = 2 To irow
If Len(Range("E" & i).Value) = 4 And CStr(Range("E" & i).Value)
Range("F" & i).NumberFormatLocal = "@"
VBA
函数（转）2010-03-08 18:341,
vba
字符串函数列表：Trim(string) 去掉string左右两端空白Ltrim(string) 去掉string左端空白Rtrim(string) 去掉string右端空白Len(string) 计算string长度Left(string, x)
我们使用表格存储类似123456789123456789这种长度大于15位的数据时，表格通常会默认将数值
转换
为类似下面的这种
单元格
格式，点开后发现数据后三位已经被修改。而使用下面的
vba
代码可以直接将原数值
转换
为
文本
格式保存在
单元格
中，而且复制粘贴外部依旧是完整的数据。
vb6.0/
vba
中 计算公式字符串转化为可执行的计算公式输出结果
vb6.0中 将计算公式字符串转化为可执行的计算公式输出结果方法如下：
Private Sub command1_click()
Set My_Script = CreateObject(“scriptcontrol”)
My_Script.Language = “VBscript”
Run_Str = “msgbox 1+1”
My_Script.executestatement Run_Str
End Sub
可惜的是scriptcon
我想知道如何使用
VBA
脚本将带有html标签的
整列
单元
转换
为格式化
文本
(基于这些标签)。如何将一列
文本
与html标签
转换
为
Excel
中的
vba
格式
文本
使用下列
内容
：Sub Sample()Dim Ie As ObjectSet Ie = CreateObject("InternetExplorer.Application")With Ie.Visible = False.Navigate "abo...
