12
返回列表 上一主題 發帖

[發問] 將資料自動複製到，目前點選的所在頁面並自動選擇最後一行空白處貼上

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
11# 跳轉到 »
發表於 2015-4-19 21:37 | 顯示全部帖子
回復 19# tyrone123456


    Sub test()


    Workbooks("紀錄表-基礎A").Sheets("客戶明細").Rows(2).Copy
    EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '所有使用中的列數+1
    Rows(EndRow).PasteSpecial Paste:=xlPasteValues
For I = 2 To Sheets.Count
     ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & I), Address:="", SubAddress:= _
        Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
Next

End Sub

1.目前這樣在業務那個檔案會複製第一個SHEET的超連結過來到SHEET2的第一欄
2.如果再基礎那個那個檔案執行巨集的話會變成A2的超連結至A1.
可以在麻煩教我怎麼解決嗎|

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
12#
發表於 2015-4-20 21:37 | 顯示全部帖子
回復 21# PKKO


   感謝說明∼另外有個想法
我寫成一個檔案是固定檔名的好了，
例如這樣
固定（業務專用ｃ－客戶明細）　　　　不固定（客戶資料）　　讓固定（業務專用ｃ－客戶明細）可以去自己抓取不固定（客戶資料）內的第二個分頁第２行，會來貼在固定（業務專用ｃ－客戶明細）空白資料的最後一行
固定（業務專用ｂ－客戶明細）　　　　不固定（客戶資料）
固定（業務專用ａ－客戶明細）　　　　不固定（客戶資料）

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
12
返回列表 上一主題