返回列表 上一主題 發帖

[發問] 想請教一個蠻困擾的問題!!

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 2015-3-6 10:55 | 顯示全部帖子
回復 1# cold123


   
我將格式設定為上圖所示
  1. Sub ex()
  2. Dim ar As Variant, x, y, i, a As Long
  3. i = 2
  4. y = 1
  5. Do While Cells(i, 7) <> ""
  6.   ar = Split(Cells(i, 7), ";")
  7.   x = 2
  8.   For a = 0 To UBound(ar)
  9.    For x = 2 To 5
  10.     If Cells(1, x) = ar(a) Then
  11.       Cells(y, x).Offset(1, 0) = "V"
  12.     End If
  13.    Next
  14.   Next
  15.   y = y + 1
  16.   i = i + 1
  17. Loop
  18. End Sub
複製代碼

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題