- 帖子
- 19
- 主題
- 4
- 精華
- 0
- 積分
- 57
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2015-3-8
- 最後登錄
- 2016-12-27
|
本帖最後由 windclover 於 2015-4-5 11:13 編輯
我有兩張表
第一張表的紀錄會copy到第二張表上- Public Sub Autocopy()
- Dim xR As Range, xSht As Worksheet
- Set xSht = Sheets("總表")
- Set xR = xSht.[A65536].End(xlUp)(2, 1).Resize(10)
- xR = [A8]
- xR.Offset(0, 1) = [A6]
- xR.Offset(0, 2) = [C6]
- xR.Offset(0, 3) = [E6]
- [B11:E20].Copy xR(1, 1).Offset(0, 4)
- End Sub
將copy過來的超連結(欄G)取出到第二張表(欄I)- Sub hyperlinkremove()
- For i = 2 To Range("A2").End(xlDown).Row
- Cells(i, 9) = Cells(i, 7).Hyperlinks(1).Address
- Next
- End Sub
謝謝!! |
|
發表於 2015-4-5 11:11
| 
