excel 选择并复制一个单元格到另一个工作表不起作用，需要建议

6jygbczu 于 2022-12-14 发布在其他

关注(0)|答案(1)|浏览(136)

这段代码应该检查两个特定列中的条件是否满足，如果是，它应该从另一个工作表中取一个值，并将其粘贴到源工作表中选中行的行尾。出于测试目的，我现在尝试至少将其保持在一个特定的范围内。我想我知道我错在哪里了。这个单元格的值很可能是最大的值，它甚至可能没有在列中循环。我有像30个不同的细胞可能性复制从不同的条件，我想我可以调整他们每一个取决于条件，但需要使这第一次尝试工作，然后它将是煎饼一天，或不..

Sub Update()
Dim Column As Range
Sheets("Q485").Select
Set Column = Range.Select("AV:AW")
    If Column("AW") Is cell.Value("P") And Column("AV") Is cell.Value("V") Then
      Sheets("Support").Select
      Range("C9").Select
      Selection.Copy
      Sheets("Q485").Select
      Range("AY6358").Select
      Selection.Paste
'    Else 
'    Other conditions will be written below
    end if

End Sub

测试，测试，测试，但希望Maven提供一些建议

excel

来源：https://stackoverflow.com/questions/74688247/select-and-copy-a-cell-to-another-sheet-is-not-working-need-advice

1条答案

按热度按时间

g0czyy6m1#

Sub MyMacroc ()
    Dim rng as range
    set rng = sheets("Source").range("A2:A7")

    For Each cel In rng.Cells
        with cel
            'condition -1 '
            if .offset(0,1)="P" and .Offset(0,2)="V" then
                .offset(0,3) = Sheets("Extract").range("B2")
            ElseIF
                'your second conition 
            end if
        end with
    next

End sub

赞(0）回复(0）举报 2022-12-14

我来回答

excel 选择并复制一个单元格到另一个工作表不起作用，需要建议

1条答案

相关问题

热门标签

最新问答