Ghi dữ liệu thành 2 cột.

[Thanh Bình PV]

Bác nào giúp em ghi dữ liệu ra thành 2 cột với ạ.
AddInIterator.DisplayName : cột A
AddInIterator.FileExtensions : cột B
Em cảm ơn.

Public Sub GetOptions()
    Dim AddInIterator As ApplicationAddIn
    'Find the DWFAddIn based on description string
For Each AddInIterator In ThisApplication.ApplicationAddIns
  If AddInIterator.AddInType = kTranslationApplicationAddIn Then
  Dim binh As Variant
  binh = binh & vbLf & AddInIterator.DisplayName & "    (*" & AddInIterator.FileExtensions & ")"
  End If
Next
MsgBox binh
End Sub

 

[befaint]

Public Sub GetOptions()
    Dim AddInIterator As ApplicationAddIn
    'Find the DWFAddIn based on description string'
Dim binh As Variant, i as long
4 Redim binh(1 to ThisApplication.ApplicationAddIns.count, 1 to 2)
'Neu loi dong 4 thi thay bang dong 5:'
'5 Redim binh(1 to 1048500, 1 to 2)
For Each AddInIterator In ThisApplication.ApplicationAddIns
  If AddInIterator.AddInType = kTranslationApplicationAddIn Then
i=i+1
  binh (i,1) =  AddInIterator.DisplayName
binh(i,2) = AddInIterator.FileExtensions
  End If
Next
If i > 0 then
range("A1").resize(i,2).value=binh
end if
End Sub