对于sheet1.range中的每个单元格，如果该单元格包含值（即％），则粘贴在工作表2中c列中的下一个空单元格中

Question

请帮助！我试图创建一个宏来通过一个范围，并基于条件（单元格值），将该单元格和该单元格的左侧复制到下一个空行的第2列中。

我尝试合并发现的两个不同代码，但是我无法解决。我认为这并不困难，但对我来说却很难。

到目前为止，我的代码：

Sub Ado()
    Dim Last As Long
    Dim sht1 As Worksheet, sht2 As Worksheet
    Dim i As Long

    Set sht1 = Worksheets("Target Calculator")
    Set sht2 = Worksheets("Exceptions")
    Last = 61

    With sht1
        For i = 5 To Last Step 1
            If (Cells(i, "J").Text) = "26.00%" Then
               Cells(i, "J").Value = sht2.Cells(i, "c").Value
             End If
        Next i
    End With
End Sub

我没有在VBA上接受任何正式培训，我一直在尝试通过在此网站上构建和学习来学习。

非常感谢

Answer 1

假设您的单元格格式设置为百分比，但实际值可能是mydomain.com/test.html。

.26