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

Question

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

1 2 3
1 2
1
1 2 3 4

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

我试过这个：

• Crtl+A
• 去特别的
• 常数
• 数字

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

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

谢谢

Answer 1

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

在 notepad++ 中打开 txt 文件并点击Ctrl+ H。

在查找中，输入：

\t+$

在替换中，将其留空。

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

Answer 2

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

Answer 3

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 行）

希望这可以帮助