返回列表 上一主題 發帖

問題,求救~~拜託

問題,求救~~拜託

各位大大,小弟的問題如下
要把111.xlsx.sheet(1).range("e5:f15")中的數值,分四次匯出到222.xlsx.sheet(1)中依序排列
每一次匯出後會把222.xlsx關閉,要匯出時再開啟。
以上問題,拜託各位大大,指導一下
stone

本帖最後由 阿宗 於 2017-9-28 08:14 編輯

回復 2# joey0415

joey0415 大大
                          我有試過用錄製的,但是不是我要的結果
                           我要的結果是
                           1.從A檔案複製"A1:B5",開啟B檔案貼到"A1",儲存B檔案,關閉B檔案
                           2.從A檔案複製"A1:B5",開啟B檔案貼到"C1",儲存B檔案,關閉B檔案
                           3.從A檔案複製"A1:B5",開啟B檔案貼到"E1",儲存B檔案,關閉B檔案
                           ~以上步驟分三次輸出,不是一次輸出,可能我上回沒說清楚,抱歉~
                            我記得是要用迴圈吧,但是我不會用,所以上來求救,拜託了
stone

TOP

本帖最後由 阿宗 於 2017-9-28 08:38 編輯

回復 4# prin.huang

prin.huang 大大
                             小弟我是新手,用不出個所以然來,所以上來請教,拜託
~以下是我錄的巨集~
Sub 巨集1()
'
' 巨集1 巨集
'

'
    Range("E5:F15").Select
    Selection.Copy
    Range("E5").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("E3").Select
    Application.CutCopyMode = False
    Range("E5:F15").Select
    Selection.Copy
    Range("G5").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("A1").Select
    Application.CutCopyMode = False
    Range("E5:F15").Select
    Selection.Copy
    Range("I5").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.CutCopyMode = False
    Range("A1").Select
End Sub
stone

TOP

回復 6# Hsieh


    感謝版主大大 的會覆,小弟我在測試看看,謝謝!
stone

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題