作者：绿色风
分类：
时间：2022-08-17
浏览：146
楼主
wjc2090742 |
Q：如何将各位数和的尾数在筛选字符串中的以000格式保存到txt文件中？
A：使用下面的代码
- Sub text()
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- Dim dic, i As Long, str$, m As Byte, j As Byte, path$
- path = [e4].text & "\" & [e5].text & ".txt"
- Set dic = CreateObject("scripting.dictionary")
- str$ = [j5].text
- For i = 0 To 999
- m = 0
- For j = 1 To Len(CStr(i))
- m = m + Mid(i, j, 1)
- Next
- If InStr(str, Right(m, 1)) > 0 Then dic.Add Format(i, "000"), ""
- Next
- Workbooks.Add
- With ActiveWorkbook
- .Sheets(1).Range("a:a").NumberFormat = "@"
- .Sheets(1).[a1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
- .SaveAs Filename:= _
- path, FileFormat:=xlText, _
- CreateBackup:=False
- .Close True
- End With
- Set dic = Nothing
- Application.DisplayAlerts = True
- Application.ScreenUpdating = True
- End Sub
 通过数字串的和值尾进行筛选.rar
|
2楼
eliane_lei |
跟着小胖学习。谢谢分享 |
3楼
心痛神伤 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一