Giúp đỡ codeVBA merge cell

[hieuvn]

Chào các bạn,
Mình có 1 file excel lấy dữ liệu từ acces nên các row không cố định, nhờ các bạn giúp mình merge cell cho 2 cột F và cột G (dữ liệu trong các hàng là giống nhau) bằng Macro hoặc VBA.
Vui lòng mở file đính kèm và giúp mình với.

cảm ơn nhiều

 

[hieuvn]

Để các bạn dễ hình dung hơn, mình trích đoạn mã từ acces để định dạng file excel như sau:
== trích....
Set objXL = New Excel.Application '--- start a new instance of Excel
objXL.Visible = True
Set objWkb = objXL.Workbooks.Open(CurrentProject.path & "\kaka.xls") '--- open workbook --- change to match where XLS template is
Set objSht = objWkb.Worksheets(1) '--- first tab in workbook

iRow = 6
iRowS = iRow + 1
rst.MoveFirst

Do While Not rst.EOF
iRow = iRow + 1
objSht.Range("B1") = rst!restaurant
objSht.Range("B2") = rst!attn
objSht.Range("B3") = rst!tel
objSht.Range("B4") = rst!fax
objSht.Range("C4") = rst!Email
objSht.Range("B" & iRow) = rst!CODE
objSht.Range("C" & iRow) = rst!NGAY
objSht.Range("D" & iRow) = rst!meal
objSht.Range("E" & iRow) = rst!PAX
objSht.Range("F" & iRow) = rst!Menu ' đây là cột cần merge cell
objSht.Range("G" & iRow) = rst!Price ' đây là cột cần merge cell
objSht.Range("I" & iRow) = rst!GUIDESGN
nếu có code VBA thì mình sẽ bỏ vào trong file acces luôn, nhưng việc đièu khiển excel qua acces hơi khó so với làm việc trực tiếp trên excel.

thanks