在“Do While”循环中通过浮动框复制string

我试图创build一个macros，在下一个单元格中将一个string复制到一个float / integer中，直到它碰到另一个string。 我发现了一些我认为会起作用的代码，并希望能够帮助修改它（或者，如果我应该走另一个方向，请告诉我）：

Sub ReplaceNumberswithText() ' Performs Do loop, testing at top of loop. ' Loops until empty cell is reached. ' Note that you can also use a Do While Not IsEmpty(ActiveCell) loop. ' Test contents of active cell; if active cell is empty, exit loop. Do Until IsEmpty(ActiveCell) If ActiveCell.Text Then Text.Copy End If ' Copies cell contents. ' Step down 1 row to the next cell. ActiveCell.Offset(1, 0).Select Selection.Paste Else: If ActiveCell.Value = 0 Then ActiveCell.Offset(1, 0).Select End If ' Return to top of loop. Loop End Sub 

我需要复制每个string通过以下浮动/整数，直到下一个string。 然后重复，直到列的末尾（列A）。

Answer 1

select范围，主页>编辑>查找和select，转到特殊…，常数，数字（仅），确定， 删除 ， = ，上， Ctrl + Enter 。