Excel VBAsearch列A中的值select行值被find，列F作为活动单元格

我是一个VBA新手…

我在列A中查找值“A”。然后，我想使用值为“A”的行号，并将F列中的现有函数复制到E列中。

这是我的尝试，显然不工作…

Dim A_Row As Long A_Row = Application.WorksheetFunction.Match("A", Range("A:A"), 0) Range("E" & A_Row).Select ActiveCell.Select ActiveCell.Offset(0, 5).Select Selection.Copy ActiveCell.Offset(0, -1).Select ActiveSheet.Paste 

预先感谢您的帮助！

Answer 1

在我看来，如果你打算使用vba，那么除非完全有必要避免使用工作表函数。

 Sub caroll() Dim ws As Worksheet Dim A_row As Long Dim rng As Range Set ws = ActiveSheet 'Loop through column A For Each rng In ws.Range(ws.Cells(1, 1), ws.Cells(ws.Rows.Count, 1).End(xlUp)) 'Test whether cell = "A","B", or "Z" If VarType(rng) <> vbError Then If rng.Value = "A" Or rng.Value = "B" Or rng.Value = "Z" Then 'If true copy column F of that row into Column E rng.Offset(, 5).Copy rng.Offset(, 4) End If End If 'loop Next rng End Sub