i want to do this thru VBA , auto concentrate two (columns ) numbers to one (column ) number

[alstudent]

Hello everyone,

i really need your help ..
i am daily adding data like this into my daily report

RAW DOWNLOADED FROM SAP

Request	LI
13752408	10
30031716	40
30036782	20
30031492	10
16468902	10

<colgroup><col style="text-align: center;"><col style="text-align: center;"></colgroup><tbody>
</tbody>

i wanted it to be automatically like this .. thru VBA .. once i paste it ..

	A	B	C
1	Request	LI	Concentrate
2	13752408	10	1375240810
3	30031716	40	3003171640
4	30036782	20	3003678220
5	30031492	10	3003149210
6	16468902	10	1646890210

<colgroup><col><col><col></colgroup><tbody>
</tbody>

etc..


if you know one automated way to do this thru VBA , it will support me a lot

 

[cerfani]

Sub ConcatenateColumns()
    Dim lastRow As Long, r As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For r = 2 To lastRow
        Range("C" & r).Value = Range("A" & r).Value & Range("B" & r).Value
    Next r
End Sub

this should work

 

[Joe4]

Welcome to the Board!

Here's a way to do it with no loops (usually faster to avoid loops, when possible):

Sub CombineData()

    Dim lRow As Long
    
'   Find last row with data in column A
    lRow = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Apply formula to column C from row 2 to end
    Range("C2:C" & lRow).FormulaR1C1 = "=RC[-2]&RC[-1]"
'   Change to hard-coded values
    Range("C2:C" & lRow).Value = Range("C2:C" & lRow).Value
    
End Sub