- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 1
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- 7
- 閱讀權限
- 10
- 註冊時間
- 2016-1-15
- 最後登錄
- 2022-3-2
|
新手發文測試
test, test , 新手發文測試- 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
複製代碼 |
|