将特定文本从一个范围内的一个单元格移动到另一个范围内的另一个单元格

Posted 2023-02-04

我想将特定文本（在这种情况下，术语“低风险”从一列移到同一张纸上的另一列。

我已经在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区分大小写