Excel VBA在列A中搜索值，找到選擇行值並將列F作為活動單元格

Question

我是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