- 帖子
- 214
- 主題
- 74
- 精華
- 0
- 積分
- 296
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- hk
- 註冊時間
- 2013-6-17
- 最後登錄
- 2018-11-3
|
2#
發表於 2014-11-21 01:34
| 只看該作者
dim A as string
A="A1,A10:A20,A40:A50....X1,D2:F15,...."
因為len(A)>255,所以set R=range(A)失敗
請 ...
mhl9mhl9 發表於 2014-11-21 01:04 
我有方法了
Sub test()
Dim E As String
Dim R As Range
E= "$A$7:$P$10,$A$15:$P$18,$A$22:$P$25,$A$50:$P$73,$A$106:$P$145,$A$174:$P$201,$A$218:$P$249,$A$262:$P$273,$A$280:$P$281,$A$288:$P$289,$A$296:$P$305,$A$308:$P$313,$A$322:$P$337,$A$343:$P$346,$A$351:$P$354,$A$358:$P$361,$A$386:$P$409,$A$442:$P$481,$A$510:$P$537"
For Each i In Split(E, ",")
If R Is Nothing Then
Set R = Range(i)
Else
Set R = Union(R, Range(i))
End If
Next i
R.Select
End Sub |
|
