Có phải bạn muốn đổi I thành số 9 đúng không?
Chào bạn bạn làm như sau nhé
Option Explicit
Sub hienthongbaos()
MsgBox Application.WorksheetFunction.Substitute(Cells(1, 9).Address, "1", "")
End Sub