- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2012-10-23 13:17
| 只看該作者
本帖最後由 GBKEE 於 2012-10-23 13:37 編輯
回復 1# p6703 - ub Ex()
- Dim xi As Integer
- With Sheet2.Range("L1")
- Sheet2.Range(.Cells(1), .Cells(1).End(xlToRight)) = ""
- '迴圈
- For xi = 0 To Sheet1.[B3]
- .Offset(, xi) = Sheet1.[B2] + xi
- Next
-
- '公式
- ' .Resize(, Sheet1.[B3] + 1) = "= Sheet1!$B$2+" & "Column() -" & .Column
- ' .Resize(, Sheet1.[B3] + 1) = .Resize(, Sheet1.[B3] + 1).Value
-
- End With
- End Sub
複製代碼 |
|