求助：Excel宏仅格式化Streckkod和Återlämningsdatum首个实例问题

嘿，刚接触VBA遇到这种问题完全不用慌！你说的宏只对第一个Streckkod和Återlämningsdatum生效，大概率是因为你的代码里只执行了一次查找操作，没有循环遍历所有匹配的单元格。我来帮你修改代码，让它能处理所有实例：

问题核心原因 #

默认的Range.Find方法只会定位到第一个符合条件的单元格，如果要处理所有匹配项，需要配合FindNext方法循环查找，直到回到最初找到的单元格为止。

修改后的完整代码 #

Sub Transform()
    Dim wshS As Worksheet
    Dim wshT As Worksheet
    Dim s As Long
    Dim m As Long
    Dim t As Long
    Dim c As Long
    Dim d As Double
    Dim findRange As Range
    Dim firstFound As Range ' 记录第一个找到的单元格，避免无限循环
    
    Application.ScreenUpdating = False
    
    ' 假设这里是你原本设置wshS和wshT的代码，比如：
    ' Set wshS = ThisWorkbook.Worksheets("源工作表")
    ' Set wshT = ThisWorkbook.Worksheets("目标工作表")
    
    ' --- 处理Streckkod的所有实例 ---
    Set findRange = wshS.Cells.Find(What:="Streckkod", LookIn:=xlValues, LookAt:=xlWhole)
    If Not findRange Is Nothing Then
        Set firstFound = findRange ' 标记第一个找到的位置
        Do
            ' 在这里添加你的格式化和左对齐代码，比如：
            findRange.HorizontalAlignment = xlLeft
            ' 如果你还要设置其他格式，比如字体、边框等，都可以加在这里
            
            Set findRange = wshS.Cells.FindNext(findRange) ' 查找下一个匹配项
        Loop While Not findRange Is Nothing And findRange.Address <> firstFound.Address ' 直到回到第一个位置
    End If
    
    ' --- 处理Återlämningsdatum的所有实例 ---
    Set findRange = wshS.Cells.Find(What:="Återlämningsdatum", LookIn:=xlValues, LookAt:=xlWhole)
    If Not findRange Is Nothing Then
        Set firstFound = findRange
        Do
            findRange.HorizontalAlignment = xlLeft
            ' 同样可以添加其他格式化操作
            
            Set findRange = wshS.Cells.FindNext(findRange)
        Loop While Not findRange Is Nothing And findRange.Address <> firstFound.Address
    End If
    
    ' 这里保留你原本代码的其他逻辑
    
    Application.ScreenUpdating = True
End Sub

关键细节说明 #

• LookAt:=xlWhole：确保完全匹配单元格内容（比如不会把包含"Streckkod123"的单元格也匹配到），如果需要部分匹配，可以改成xlPart。
• firstFound变量：用来记录第一个找到的单元格地址，防止循环无限进行（因为FindNext查完最后一个后会回到第一个）。
• 把你原本对单个单元格的格式化代码放到循环内部，这样每个匹配项都会被处理。

如果你原本的代码里还有其他逻辑，直接把这两段循环代码插入到合适的位置就好啦～

内容的提问来源于stack exchange，提问作者Klas Blomberg