将范围内的数据复制到记事本的代码

Question

我不懂编码，我已经尝试过了，但这对我来说没有任何意义。非常尊重所有能够学习和理解这种其他复杂语言的人。如果您有什么可以帮助的，我将不胜感激。

我怀疑这是一个容易解决的问题...

我在B和C列的单元格中有一个单元格区域A1：E30，该范围内的数据是使用下拉列表输入的，当某些数据输入到这些单元格中时，信息会自动输入到同一行。并非该范围内的所有单元格都包含数据。

我想要的是一个命令按钮，当按下该按钮时，它只会复制此范围内包含文本的单元格，然后将该文本粘贴到记事本中，而不会留空行并使相应的单元格彼此相邻。

我可以做最基本的事情：

Range("A1:E30").Copy
Shell"notepad.exe",VbNormalFocus
Sendkeys"^V"

该代码复制了整个范围，但这包括空行。

有没有办法做我需要的事？

任何帮助将不胜感激。

Answer 1

如果空行位于数据块中，则可以在复制之前进行排序。如果空白行位于末尾，则可以在复制之前找到数据的最后一行，并且仅复制数据。

LastRow=Cells(Rows.Count,1).End(xlup).Row
Range("A1:E" & LastRow).Copy