将范围复制到文本文件时跳过空白行
我的程序复制Lg1行形成一个Excel范围到一个文本文件。 我想防止任何空白行forms被复制到文本文件。 每行的第一个单元格包含这个公式： =IF(L39C7=0;"";L15C20) 。 正如你所看到的，单元格是空的或是空的，或者包含L15C20的值。
编辑 ：这是一个富勒行。 所有行都有相同的内容： [=IF(L39C7=0;"";L15C20)],[=IF(LC(-1)="";"";IF(L39C7<0;"…";"5272"))],[=IF(LC(-2)="";"";IF(L41C7<0;"…";"2302"))],[=IF(LC(-3)="";"";"salaire")],[=IF(LC(-4)="";"";"0")]
这是我的代码的一部分：
With ws Set RngSelect = .Range(Cells(FirstRow, FirstCol), Cells(31, LastCol)) End with With RngSelect For Lg1 = 1 To (LastRow - FirstRow + 1) If .Cells(Lg1,1).Value <> "" Then 'Here is my issue Txt = Txt & vbCrLf & Join$(Application.Transpose(Application.Transpose(.Rows(Lg1).Value)), vbTab) Next End If End With Lg2 = FreeFile() Open FilePath For Append As #Lg2 Print #Lg2, Mid$(Txt, Len(vbCrLf) + 1) Close Lg2
我已经尝试过没有成功的各种testing，以评估如果单元格<>“”，但在我的文本文件中保持空白行。 我写什么来解决我的问题？
谢谢你的帮助。
以这种方式检查空白可能会更好（这里是您范围内的第一列）：
If Len(.Cells(Lg1, 1).Value) > 0 Then