Excel VBA For Loop Data Matching

Опубликовано: 20 Май 2019
на канале: Coding Module

16,167

210

If I was able to help you, feel free to donate.
Paypal: [email protected]

Sub match_Data()

Dim rSH As Worksheet
Dim sSh As Worksheet
Set rSH = ThisWorkbook.Sheets("RAW DATA")
Set sSh = ThisWorkbook.Sheets("SEARCH DATA")

Dim fName As String, lName As String

For a = 2 To sSh.Range("A" & Rows.Count).End(xlUp).Row
fName = sSh.Range("A" & a).Value
lName = sSh.Range("B" & a).Value

For b = 2 To rSH.Range("A" & Rows.Count).End(xlUp).Row
If rSH.Range("A" & b).Value = fName And rSH.Range("B" & b).Value = lName Then

sSh.Range("C" & a).Value = rSH.Range("D" & b).Value
sSh.Range("D" & a).Value = rSH.Range("E" & b).Value
sSh.Range("E" & a).Value = rSH.Range("F" & b).Value
sSh.Range("F" & a).Value = rSH.Range("H" & b).Value
sSh.Range("G" & a).Value = rSH.Range("J" & b).Value
Exit For
End If
Next b
Next a

Debug.Print "Completed"

End Sub

Смотрите видео Excel VBA For Loop Data Matching онлайн без регистрации, длительностью часов минут секунд в хорошем качестве. Это видео добавил пользователь Coding Module 20 Май 2019, не забудьте поделиться им ссылкой с друзьями и знакомыми, на нашем сайте его посмотрели 16,167 раз и оно понравилось 210 людям.

14,971

273