excel - 选择范围内包含空格的单元格

Question

我试图从列中分离出包含空格的单元格。我曾尝试使用 find 功能，但它似乎没有记录到“记录宏”中。
我还分离出只包含数字的单元格，但使用“查找->转到特殊->常量(数字)->插入->移位单元格”对“记录宏”效果很好
Example

Answer 1

查看此代码以了解如何设置要处理的工作表以及要处理的工作表范围。如前所述，它将处理事件工作表上的 A1:A10 范围。

Sub move_cells_with_space()
    Dim s As Worksheet
    Dim range_to_process As Range
    Dim cell As Range
    
    'choose the sheet to work on
    Set s = ActiveSheet ' use this for the actve sheet
    'Set s = Worksheets("Sheet1") ' use this for a specific sheet
    
    'choose the range to process
    Set range_to_process = s.Range("a1:a10")
    
    For Each cell In range_to_process
        If InStr(1, cell.value, " ") > 0 Then
           cell.Offset(0, 1).value = cell.value
           cell.value = ""
        End If
    Next
    
End Sub