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

Question

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

1 2 3
1 2
1
1 2 3 4

因此，如果我全选并复制，则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”＆i“：f”＆ i表示a到f，在这种情况下为1到10行）

希望这可以帮助

Answer 3

使用Word作为文本编辑器，按原样复制Excel，并将“选择性粘贴”复制为未格式化的文本。 用^ t替换^ t ^ t，直到不再进行替换为止，然后用^ p替换^ t ^ p。