- 帖子
- 92
- 主題
- 18
- 精華
- 0
- 積分
- 195
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 女
- 來自
- 台北
- 註冊時間
- 2010-8-15
- 最後登錄
- 2011-8-11
|
回復 1# 霸氣走全身 - Sub repair()
- Dim r, s
- For r = 2 To Sheets("查詢").[C65536].End(xlUp).Row
- For s = 2 To Sheets("號碼").[A65536].End(xlUp).Row
- If Sheets("號碼").Cells(s, 1) = Sheets("查詢").Cells(r, 3) Then
- Sheets("號碼").Cells(s, 16) = Sheets("查詢").Cells(r, 18)
- End If
- Next
- Next
- End Sub
|
|
發表於 2011-6-3 22:01
| 