求助!怎样输出这个单元格内容为,为指定格式的文本文件,

发布网友发布时间：2022-07-21 10:48

我来回答

共1个回答

热心网友时间：2023-10-29 00:22

亲，如同在看天书……能否受累截个图上来看看？然后举例说明你的要求？
注意！！！截图务必带上行号列标。
大概看了一下，似乎需要VBA编程。追问

把单元格的内容存为文本文件, 文本文件的格式如上,谢谢



追答

代码如下。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

Sub st()
Dim i, c As Long
c = Cells(2, Columns.Count).End(xlToLeft).Column
Dim s As String
s = "[过滤]" & vbCrLf & "自由匹配=E|0-1;"
For i = 1 To c
s = s & "K-1|" & Cells(2, i).Value & ":0,1,2;"
Next
Open ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt" For Output As #1
Print #1, s
Close #1
End Sub