- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# 最高機密
試試看- Option Explicit
- Sub EX()
- EX_買賣 "買" ' "買" 請修正
-
- 'EX_買賣 "賣"
-
- End Sub
- Sub EX_買賣(買賣 As String) '指定參數(買賣)的型態為字串
- With Range("b:b") '物件: B欄範圍
- With .Find(買賣, After:=.Cells(.Count), LOOKAT:=xlWhole)
- 'Find(搜尋)( 參數(買賣), B欄底部開始, xlWhole:儲存格內容完全相同))
- .Offset(, 1) = .Offset(, -1)
- End With
- End With
- End Sub
|
|
發表於 2013-5-14 07:41
| 