[VBA]请更正我的代码以自动执行操作 [英] [VBA] Please correct my code to perform action automatically

问题描述

我想在Excel中应用它，以便字段的顺序
我希望他自动执行此操作.

I want to apply this in Excel so that the order of the fields
I want him to perform this action does it Automatically.

Sub Macro1()
'
' Macro1 Macro
'
    Range("A1:D1").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("E1:H1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("A2:D2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A3:D3").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("E2:H2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("A3:D3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A5").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("E3:H3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A6").Select
    ActiveSheet.Paste
End Sub

我想自动执行此操作的代码是什么?> ??

已纠正问题和标记的主题-> LOSMAC [/EDIT]

i want to do it Automatically how what is the code for it ?>??

Subject of question and Tags was corrected -> LOSMAC[/EDIT]

推荐答案

如果要自动执行此操作，请执行以下操作:
1)打开VBA编辑器(ALT + F11)
2)复制以下代码:

If you want to do this automatically, do:
1) Open VBA editor (ALT+F11)
2) Copy code below:

Sub CopySomeData()
'declare variables
Dim srcWsh As Worksheet
Dim dstWsh As Worksheet

'set variables
Set srcWsh = Thisworkbook.Worksheets("Sheet1")
Set dstWsh = Thisworkbook.Worksheets("Sheet2")

srcWsh.Range("A1:D1").Copy dstWsh.Range("A1")
srcWsh.Range("E1:H1").Copy dstWsh.Range("A2")
srcWsh.Range("A2:D2").Copy dstWsh.Range("A3")
srcWsh.Range("E2:H2").Copy dstWsh.Range("A4")
srcWsh.Range("A3:D3").Copy dstWsh.Range("A5")
srcWsh.Range("E3:H3").Copy dstWsh.Range("A6")

'clean up
Set srcWsh = Nothing
Set dstWsh = Nothing

End Sub

3)插入新模块(菜单插入->模块)
4)从剪贴板粘贴数据.
5)复制以下代码:

3) Insert new Module (Menu Insert->Module)
4) Paste data from clipboard.
5) Copy code below:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet2" Then
    CopySomeData
End If
End Sub

6)转到ThisWorkbook对象(类)，然后双击
7)从剪贴板粘贴数据.
8)保存您的工作.

6) Go to ThisWorkbook object (class) and double click
7) Paste data from clipboard.
8) Save your job.

这篇关于[VBA]请更正我的代码以自动执行操作的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！