VBA查找值然后向左直到特定值答案

【问题标题】：VBA Find Value and then go left till specifi valueVBA查找值然后向左直到特定值
【发布时间】：2018-06-29 23:09:43
【问题描述】：

你好，在我的代码中我想找到一个特定的值，然后代码应该向左移动，直到他找到另一个值。

在图片中你可以看到我的桌子：

因此，如果我在“工作计划”中添加一个新行，那么我希望代码从最后一个值为 1 的单元格转到左侧，然后在“存储”中找到第一个“MFG”，然后代码应该去向左直到他找到“MFG5”。之后，他复制颜色并将其添加到“AGA”（这部分已经解决）。

到目前为止，这是我的代码。

Sub Color_Row()
    Dim lastrow As Long
    Dim rng2 As Range

    ' Find MFG in Storage
    fColumn = ActiveSheet.Cells(lastrow, Columns.Count).End(xlToLeft).Column - 4
    rowIdx = Columns(fColumn).Find(What:="MFG", LookAt:=xlWhole, MatchCase:=False).Row

    ' Now in Storage go to left an find "MFG5"

    ' Copy Color and Add to "AGA"
    ColorToCopy = Cells(rowIdx, fColumn).Interior.Color
    farbe = ActiveSheet.Cells(lastrow, rng2.Column).Find(What:="DEL", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column - 3
    ActiveSheet.Cells(lastrow, farbe).Interior.Color = ColorToCopy
End sub

我希望有人可以帮助我。

【问题讨论】：

当您说“左”时，您的意思是“右”吗？由于 MFG5 在 MFG 的右侧，因此语句'go to left until he find "MFG5"' 会更有意义。
您是否已经尝试过手动进行并记录下来？

标签： vba excel

【解决方案1】：

为什么不使用 do while 循环？当我做对时，您已经有了值“MFG”正确的单元格？然后你想向左走，直到值为'MFG5'，也正确吗？

Dim count As Integer
count = 0 
Do while Worksheets(sheet).Cells(rowIdx, fColumn-count).Value <> "MFG5"
count = count +1
Loop

值为“MFG5”的单元格是 Cells(rowIdx, fColumn-count)

【讨论】：

你没事。非常感谢，这很好用。非常感谢