Question

我正在尝试将excel文件中的nonblanks单元格复制到txt文件。我的数据如下：

所以，如果我选择全部并复制，则txt文件显示为空单元格的数据不是我想要的。

我试过了：

键Crtl + A
转到特别
常量
数字

这些命令选择非空单元格，但我无法复制它们。有没有办法复制它们？我明白了：

该命令不能用于多项选择。

由于

Answer 1

如果你有notepad ++，你可以使用正则表达式查找和替换来删除一行末尾的所有额外标签。

在记事本++中打开txt文件，然后按 Ctrl + H 。

在发现中，放：

\t+$

替换时，请将其留空。

然后检查搜索模式的单选按钮，从“正常”到“正则表达式”。之后，点击“全部替换”，这应该是它。

Answer 2

Dim fso As FileSystemObject
Dim stream As TextStream
Dim str As String

Set fso = New FileSystemObject
Set stream = fso.CreateTextFile("c:\myTextFile.txt", True)

For i = 1 To 10
    For Each cell In Range("A" & i & "F" & i)
        If Not IsEmpty(cell) Then
            str = str + cell.Text + " "
        End If
    Next cell
    stream.writeline (str)
    str = ""
Next i

stream.Close

End Sub

你要做的就是改变你想要的东西（str线末端的“”）和你想要的范围（i = 1到10行）和（“a”＆amp; i“）：f“＆amp; i表示通过f，在这种情况下表示行1到10）

希望这会有所帮助

Answer 3

使用Word作为文本编辑器，按原样复制Excel，将特殊粘贴作为无格式文本。用^ t替换^ t ^ t，直到不再进行替换，然后^ t ^ p与^ p。

在Excel中选择并复制非空白单元格

3 个答案: