我正在编写一个 VB excel 宏,它遍历打开的工作簿中的所有工作表。在每个工作表中,K 列中存储的“Y”很少。我想将 K 列中的值与“Y”进行比较,如果相等,则同一行的 A、B、D、H 列应该得到以制表符分隔的格式插入文本文件。
这是我尝试过的代码。在此代码中,我仅将 K 列插入到文本文件中。但我还想将 A、B、D、H 和 K 列值的值插入到由制表符分隔的文本文件中。
请帮帮我。
我试过的代码是
Sub Button3_Click()
Dim fso, myfile, I As Integer, mycount As String, x As String
Dim curCell As Range
Dim sh As Worksheet
x = "Y"
Set fso = CreateObject("Scripting.FileSystemObject")
Set myfile = fso.CreateTextFile("d:\RECP_IMP_COLUMNS.txt", True)
myfile.WriteLine ("Work Sheet Names are as follows")
For Each sh In ActiveWorkbook.Worksheets
For Each curCell In Sheet4.Range("K1:K300").Cells
If (curCell.Value = x) Then
myfile.WriteLine (curCell)
End If
Next curCell
Next
myfile.Close
End Sub