Excel宏 - 在一列中搜索字符串并替换另一列中的值?

时间:2014-06-03 06:11:40

标签: excel excel-vba search rows vba

好吧,基本上这就是我想做的事。

我有大量的数据excel表。我有不同的信号,所有这些都有不同的值。所以在C列中我有信号名称,在F列中我有默认值。

所以我想要做的就是每一个用" Qf" (即在整列c中逐行搜索),我想将列F中的默认值(对于该特定行)更改为另一张表中给出的值,例如A1。

真的很感谢你的帮助!

非常感谢!

1 个答案:

答案 0 :(得分:0)

Sub QfReplace()
    Dim i As Long
    For i = 1 To Cells.Find("*", [C1], , , xlByRows, xlPrevious).Row
        If Right(Worksheets("Sheet1").Cells(i, 3), 2) = "Qf" Then Worksheets("Sheet1").Cells(i, 6) = Worksheets("Sheet2").Cells(1, 1)
    Next i
End Sub

这假设数据在Sheet1中,默认值在Sheet2单元格A1中,而Sheet1没有标题行。