- 帖子
- 102
- 主題
- 30
- 精華
- 0
- 積分
- 137
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- 12
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-11-24
- 最後登錄
- 2018-12-6
|
回復 5# Hsieh
請問一下，我若想讓G5以下每個都能對應，加入j的變數,可是這樣跑起來卻是出現一遍後就消失
麻煩解答 謝謝
Sub nn()
With Worksheets("Sheet1")
Range([H5], [H5].End(xlToRight)).ClearContents '清除之前內容
for j=j+1
Set a = [B:B].Find(.cell(j,5), lookat:=xlWhole) '找到G5在B欄的位置
i = i + 1
cell(j,5).Offset(, i) = a.Offset(, 1) 'G5向右寫入
Do Until a.Offset(i) <> "" Or a.Offset(i, 1) = "" '執行迴圈直到B欄不等於空白或C欄不等於空白
cell(j,5).Offset(, i) = a.Offset(i, 1) 'G5向右寫入
i = i + 1
Loop
next j
end with
End Sub
複製代碼 |
|
發表於 2011-11-24 18:32
| 
