- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 169
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-7-13
               
|
回復 7# y663258 - Sub nn()
- Dim ar As Range
- Set ar = Union([A3:E12], [G3:K12], [M3:Q12], [A15:E24], [G15:K24], [M15:P24], [A27:D37])
- For Each a In Selection
- s = 1
- For Each c In ar.Areas
- Set b = Intersect(a, c)
- If Not b Is Nothing Then cnt = cnt + s: Exit For
- s = s * 2
- Next
- Next
- MsgBox [B39:B138].Cells(cnt, 1)
- End Sub
複製代碼 |
|