返回列表 上一主題 發帖

[已解決][發問]程式簡化-陣列-VBA ,尋找某元素是否存在陣列中。

本帖最後由 軒云熊 於 2020-8-12 20:10 編輯

這樣好像也可以
  1. Sub 練習顯示陣列位置()

  2. Dim A, B, i, k

  3. A = Array("一", "五", "八")
  4. B = Array("一", "二", "三", "四", "五", "六")

  5.     For i = 0 To UBound(B)
  6.         If A(k) = B(i) Then
  7.            MsgBox " A的 " & A(k) & " 在 B 的 第 " & i & " 個"
  8.            If k <= UBound(A) Then k = k + 1
  9.         Else
  10.            MsgBox " B 的 第 " & i & " 個" & " 是 " & B(i)
  11.         End If
  12.     Next i
  13.    
  14. End Sub
複製代碼

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題