Created
April 18, 2016 09:28
-
-
Save dprotopopov/e4dd49fe1a4dfd1aee7322f82b59bbaa to your computer and use it in GitHub Desktop.
есть список артикулов. из него нужно получить список где для каждого артикула на конце будет добавлено
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub Join() | |
With ThisWorkbook | |
Set lData = .Sheets(1).Range("A1") | |
Set rData = .Sheets(2).Range("A1") | |
Set rngLeft = Range(lData, lData.End(xlDown)) | |
Set rngRight = Range(rData, rData.End(xlDown)) | |
Set Sh = .Sheets.Add(After:=.Sheets(.Sheets.Count)) | |
Dim row As Integer | |
row = 1 | |
For Each l In rngLeft.Cells | |
For Each r In rngRight.Cells | |
Sh.Cells(row, 1) = l.Text + "_" + r.Text | |
row = row + 1 | |
Next r | |
Next l | |
End With | |
End Sub |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment