excel - 最初の列の複製された値に達したら、残りの行を自動入力する方法

Question

カスタマー サービス用に定義された Excel シートがあります。Customer_ID の値が将来のサービスで繰り返される場合、列 A (Customer_ID) の関連する値の行の自動入力に VB を使用したいと考えています。では、どうすれば同じシートでそれを行うことができますか? 行の内容の例は次のとおりです。

"Customer_ID"   "Identity_No."   "City"   "Customer's_Name"   "Phone_No."   "Email"

"LON9501"       "22024245423"   "London"   "John_Nash"        "9234784546"  "foobar@gmail.com"

Answer 1

ワークシートの Change イベントに以下を添付してください ...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ARng As Range
    Dim myRng As Range
    Dim iCnt As Long, iLoop As Long
    Dim found As Boolean

    Set ARng = ActiveSheet.UsedRange
    Set ARng = ARng.Cells(ARng.Rows.Count, 1)

    If Not Intersect(Target, ARng) Is Nothing Then 'Check the last cell in column A changed
        Set myRng = ActiveSheet.UsedRange
        iCnt = myRng.Rows.Count
        found = False
        Do While Not found And iCnt > 0 'Search for another instance from the bottom up
            iCnt = iCnt - 1
            found = Target.Value = myRng.Cells(iCnt, 1).Value
            If found Then 'found another instance so populate the row
                For iLoop = 2 To myRng.Columns.Count
                    myRng.Cells(myRng.Rows.Count, iLoop) = myRng.Cells(iCnt, iLoop)
                Next iLoop
            End If
        Loop
    End If
End Sub

これから…

そして、セル A4 に LON9501 と入力すると、次のようになります...