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

时间:2018-08-11 23:19:39

标签: vba excel-vba

请帮助!我试图创建一个宏来通过一个范围,并基于条件(单元格值),将该单元格和该单元格的左侧复制到下一个空行的第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上接受任何正式培训,我一直在尝试通过在此网站上构建和学习来学习。

非常感谢

1 个答案:

答案 0 :(得分:0)

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

.26