返回列表 上一主題 發帖

[分享] 將cells的數字欄改為range的文字欄

回復 3# mave
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar As Variant, I As Integer
  4.     Ar = Array("AA", "BB", "CC")  '陣列
  5.     For I = 0 To UBound(Ar)
  6.         MsgBox Ar(I)    '陣列的第幾個元素
  7.     Next
  8.     '********Split傳回陣列
  9.     Ar = "AA_BB_CC"
  10.     For I = 0 To 2
  11.         MsgBox Split(Ar, "_")(I)   '陣列的第幾個元素
  12.     Next
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 一句溫暖的話,就像往別人身上灑香水,自己會沾到兩三滴。
返回列表 上一主題