Combine multiple cells

[pllooi]

Hi everyone, need help to cover excel formula =(B2&"_"&G2&"_"&I2) to vba code. Because I get Alert msg for excel "One or more formulas in this workbook are longer than the allowed limit of 8192 character."

I need to combine B$&G$&I$ in-between space insert "_" to F$ (automate fill up when key in data on Columns B,G & I

TX Date	ID	Source	Ingested by	Ingest Date	Filename	Title	节目名称	Episode
43475	AATZX01EX				AATZX01EX_The World Hunter S1_TR	The World Hunter S1		TR
43475	AATZY01EX				AATZY01EX_The World Hunter S1_S	The World Hunter S1		S
43475	AATZZ01EX	Aspera	Yiwen	25 Jan 18	AATZZ01EX_The World Hunter S1_1	The World Hunter S1		1
43475	AAUAA01EX	Aspera	Grace Au	26 Feb 18	AAUAA01EX_The World Hunter S1_2	The World Hunter S1		2

<colgroup><col width="87" style="width: 65pt;"><col width="99" style="width: 74pt;"><col width="81" style="width: 61pt;"><col width="85" span="2" style="width: 64pt;"><col width="299" style="width: 224pt;"><col width="191" style="width: 143pt;"><col width="73" style="width: 55pt;"><col width="60" style="width: 45pt;"></colgroup><tbody>
</tbody>

Thanks,
Regards,
LOOI

 

[MoshiM]

Like this?

Sub CONCAT()
Application.ScreenUpdating = False


Dim Last_Row As Long, X As Long


Last_Row = ActiveSheet.UsedRange.Rows.Count


For X = 2 To Last_Row


ActiveSheet.Range("F" & X).Value2 = ActiveSheet.Range("B" & X).Value2 & "_" & ActiveSheet.Range("G" & X).Value2 & "_" & ActiveSheet.Range("I" & X).Value2


Next X


Application.ScreenUpdating = True


End Sub

 

[pllooi]

Thank you.

Like this?

Sub CONCAT()
Application.ScreenUpdating = False


Dim Last_Row As Long, X As Long


Last_Row = ActiveSheet.UsedRange.Rows.Count


For X = 2 To Last_Row


ActiveSheet.Range("F" & X).Value2 = ActiveSheet.Range("B" & X).Value2 & "_" & ActiveSheet.Range("G" & X).Value2 & "_" & ActiveSheet.Range("I" & X).Value2


Next X


Application.ScreenUpdating = True


End Sub