发布网友
共2个回答
热心网友
本代码是将文本文件建立在D盘,你可自行修改盘符,使用的时候新建模块,创建命令按钮,然后指定该宏即可,也可以vb编辑器中直接运行。
Public brr()
Private Sub mytext()
Dim brr() As String, x As Integer, y As Integer, a As Integer
Dim fso As Object, f As Object, atra As String
a = Sheet1.Range("h" & Rows.Count).End(xlUp).Row
arr = Sheet1.Range("h10:h" & a)
ReDim brr(1 To a)
For x = 1 To UBound(arr)
y = InStr(1, arr(x, 1), "(", 1)
If y <> 0 Then
zz = Mid(arr(x, 1), y, Len(arr(x, 1)) - y + 1)
c = InStr(1, zz, ",", 0)
If c <> 0 Then
brr(x) = "--" & Mid(arr(x, 1), 1, y) & Replace(zz, ",", "-", , 1)
Else
brr(x) = "--" & Mid(arr(x, 1), 1, y) & Replace(zz, ",", "-", , 1)
End If
Else
brr(x) = "--" & arr(x, 1)
End If
Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.createtextfile("D:\清单.TXT")
Set f = Nothing
Set fso = Nothing
For bb = 1 To UBound(brr)
stra = stra & brr(bb) & vbCrLf
Next
Open "D:\清单.TXT" For Output As #1
Print #1, stra
Close #1
End Sub
热心网友
日哦,真接查找替换,还用VBA,追问替换是可以,但是输出呢?我要分割了再输出一个清单TXT文本。