Excel 将特定文本从一个区域中的一个单元格移动到另一个区域中的另一个单元格

我想将特定文本（在本例中为术语“低风险”）从同一页的一列移至另一列

---

我在Macro Developer中尝试了几种不同的“.Cut”函数，但似乎都不起作用。

我不确定自己是否正确理解了这个问题，但要使用vba将值从一个单元格移到另一个单元格，请使用类似

    Worksheets("Name").Cells(rowNo, column2No).Value = Worksheets("Name").Cells(rowNo, column1No).Value
    Worksheets("Name").Cells(rowNo, column1No).clear

希望它对您有所帮助

试试：

Option Explicit

Sub test()

    Dim strValueToRemove As String, strString As String

    strValueToRemove = "Low Stock"

    With ThisWorkbook.Worksheets("Sheet1")
         strString = .Range("A1").Value
        .Range("A1").Value = Replace(strString, strValueToRemove, "")
        .Range("B1").Value = strValueToRemove
    End With

End Sub

注意事项：

Replace

区分大小写

设置Rng中每个单元格的范围（“A2:BH53”，单元格（Rows.Count，1）.End（xlUp）），如果cell.Value=“低风险”（我想将读取“低风险：的内容移到不同的行/列）cell.ClearContents End如果下一个End使用该代码向您提问，而不是将其放在注释中，则结束？谢谢！