循环:根据列表查找字符串，并在另一个工作表中调整尾随零和边框周围

Sub FindAndAdjust()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim searchString As String
    Dim searchRange As Range
    Dim foundCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置需要查找的字符串
    searchString = "需要查找的字符串"
    
    ' 设置需要查找的范围
    Set searchRange = sourceSheet.Range("A1:A10") ' 设置查找范围的起始和结束单元格
    
    ' 循环遍历查找字符串
    For Each cell In searchRange
        If cell.Value = searchString Then
            ' 找到目标字符串
            ' 在目标工作表中进行调整操作，例如调整尾随零和边框周围
            ' 请根据具体需求使用相关的 Excel VBA 函数来进行调整操作
            ' 示例代码：targetSheet.Range("A1").Value = "调整后的值"
        End If
    Next cell
End Sub