標題: 新手發文測試 [打印本頁]

---

作者: looneqza    時間: 2022-3-2 09:58     標題: 新手發文測試

test, test , 新手發文測試

1. Sub stocklist匯入()
   
2.     Application.ScreenUpdating = False
   
3.     Range("A1").CurrentRegion.Offset(1, 0).ClearContents
   
4.     Sheets("當沖率上").Activate
   
5.     Range("A1").CurrentRegion.Offset(0, 1).Select
   
6.     Selection.Copy
   
7.     Sheets("Goodinfo").Activate
   
8.     Range("A2").Select
   
9.     ActiveSheet.Paste
   
10.     Sheets("當沖率下").Activate
    
11.     Range("A1").CurrentRegion.Offset(0, 1).Select
    
12.     Selection.Copy
    
13.     Sheets("Goodinfo").Activate
    
14.     Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
    
15.     ActiveSheet.Paste
    
16.     Range("A2").Select
    
17.     Sheets("當沖率上").Activate
    
18.     Range("A2").Select
    
19.     Sheets("當沖率下").Activate
    
20.     Range("A2").Select
    
21.     Sheets("Goodinfo").Activate
    
22. End Sub

複製代碼

---

作者: looneqza    時間: 2022-3-2 09:58

回覆測試 ~~

---

作者: ryan456    時間: 2022-4-2 14:40

回復 1# looneqza


    測試~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)