0

ここにはいくつかの異なる同様のアイデアがあることに気づきました。しかし、この単純な比較機能について助けが必要です。

私の目標は、2 つの異なるセルを比較し、それらが同じ場合は、省略されていない完全な名前に置き換えることです。

ありがとうございました!!!

IE

Sheet1           Sheet2
Column H    Column A   Column B
Dept        Dept       Department

これは私が持っているものです（はい簡単です）が、セル H は非略語に更新されていません：

 Sub updateDeptNames()

'Format user ID from the email column
Dim ws As Worksheet, ws2 As Worksheet
Dim LastRow As Long, i As Long
Dim tmpArray() As String, tempDept As String
Set ws = ActiveWorkbook.Sheets("Student_Travel_DB") '--> This is the relevant sheet
Set ws2 = ActiveWorkbook.Sheets("gokoutd") '--> This is the relevant sheet

    LastRow = 1000 ''Bug finding the last row, had to hard code it

    For i = 2 To LastRow 'Iterate through all the rows in the sheet
       For j = 2 To 112
        tempDept = ws2.Range("A" & j).Value
        If ws.Range("H" & i).Value = tempDept Then
            ws.Range("H" & i) = ws2.Range("B" & j).Value
        End If
        Next j
    Next i
 End Sub
4

1 に答える 1

1

VLOOKUPワークシートまたは VBA でより簡単に使用できます。

Sub GetFullName()
    Dim cl As Range, data As Range, lookUpRng As Range

    Set data = Worksheets("Student_Travel_DB").Range("A1:A10")
    Set lookUpRng = Worksheets("gokoutd").Range("A1:B10")

    On Error Resume Next
    For Each cl In data
        cl = WorksheetFunction.VLookup(cl, lookUpRng, 2, False)
    Next cl
End Sub

範囲参照を変更する必要があります。

于 2013-10-15T17:51:22.583 に答える