麻辣家族討論版版 » 新手測試 » 新手發文測試

looneqza 發表於 2022-3-2 09:58

新手發文測試

test, test , 新手發文測試[code]Sub stocklist匯入()
    Application.ScreenUpdating = False
    Range("A1").CurrentRegion.Offset(1, 0).ClearContents
    Sheets("當沖率上").Activate
    Range("A1").CurrentRegion.Offset(0, 1).Select
    Selection.Copy
    Sheets("Goodinfo").Activate
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("當沖率下").Activate
    Range("A1").CurrentRegion.Offset(0, 1).Select
    Selection.Copy
    Sheets("Goodinfo").Activate
    Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
    ActiveSheet.Paste
    Range("A2").Select
    Sheets("當沖率上").Activate
    Range("A2").Select
    Sheets("當沖率下").Activate
    Range("A2").Select
    Sheets("Goodinfo").Activate
End Sub[/code]

looneqza 發表於 2022-3-2 09:58

回覆測試 ~~

ryan456 發表於 2022-4-2 14:40

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=118492&ptid=23599]1#[/url] [i]looneqza[/i] [/b]


    測試~

查看完整版本: 新手發文測試