文档建议反馈控制台
首页
学习
活动
专区
圈层
工具
MCP广场
文章/答案/技术大牛
发布
社区首页 >问答首页 >VBA将单元格从多个工作簿复制到另一个工作表中的特定单元格中。

问VBA将单元格从多个工作簿复制到另一个工作表中的特定单元格中。
EN

Stack Overflow用户
提问于 2022-09-05 15:21:02
回答 3查看 67关注 0票数 -1

我有大约500个工作簿，每个工作簿包含5个工作表，我想从工作表1、2和3中的特定单元格中提取数据(唯恐说工作表1需要单元格B2、B6、B8 )。工作表2单元格( B2、C2、D2和sheet 3 B6、D6)按特定顺序将它们依次通过(唯恐从表1到A、B、C列，从第2页分别在D、E、F列后面，然后从第3页也跟着G、H、I列。简而言之，我想从提取的单元格中生成一个表。

提前感谢

excel
vba
extract
EN

回答 3

Stack Overflow用户

回答已采纳

发布于 2022-09-06 12:05:17

这不是你问题的完整解决方案。该代码包含记录的代码，该代码尚未被完全编辑。我把这个留给你去完成。下面代码中的注释中有说明。我是自闭症患者，所以我有时会出现在别人面前，当我只是想帮忙的时候。

所记录的代码似乎省略了一些源代码范围，如"B2“，需要手动更正。

代码中标识文件夹中文件的部分来自here.。

代码语言：javascript
复制
Option Explicit

Private Sub Test15()

Dim iRow&
Dim FileName$, sPath$
Dim wb As Workbook, wbSurvey As Workbook
Dim wsSurvey As Worksheet, WS As Worksheet

sPath = "C:\Users\user\Documents\HP Laptop\Documents\Documents\Jobs\DIT\IDMB\Stack Overflow\okinawa\"

Set wbSurvey = ThisWorkbook
Set wsSurvey = wbSurvey.Sheets("Survey")

'FileName = Dir(strFolder & "\*123.xls")
FileName = Dir(sPath)
iRow = 2
Do While Len(FileName) > 0
    Set wb = Workbooks.Open(sPath & FileName)
    
    'change the phrase FIRST TAB here to the name of the first sheet, which is used in your process.
    Set WS = wb.Sheets("FIRST TAB")
    
    'this is how the edited code below needs to look. cutcopymode and scroll down lines of code can be deleted
    WS.Range("B2").Copy
    wsSurvey.Range("B" & iRow).PasteSpecial (xlPasteValues)
    
    'this is an example of which lines of code need to be edited to look like the above two lines of code.
    WS. _
        Activate
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("C" & iRow).PasteSpecial (xlPasteValues)
    
    WS. _
        Activate
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("D" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D6").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("E" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F5").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("F" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D5").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("G" & iRow).PasteSpecial (xlPasteValues)
    
    Set WS = wb.Sheets("RF")
    
    WS. _
        Activate
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("H" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("I" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B7").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("I2").Select
    .PasteSpecial (xlPasteValues)
    Range("J" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B8").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("K" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=6
    Range("B9").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B10").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("L" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B11").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("M" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B12").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("N" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B13").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("O" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B14").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("P" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=6
    Range("B21").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("Q" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    ActiveWindow.SmallScroll ToRight:=4
    WS. _
        Activate
    Range("B22").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("R" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B23").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("S" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B24").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("T" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B25").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("U" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B26").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("V" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=-18
    Range("C4").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("W" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C6").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("X" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C7").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("Y" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C8").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("Z" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C9").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AA" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C10").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AB" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C11").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AC" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C12").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AD" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C13").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AE" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=6
    Range("C14").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AF" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=6
    Range("C21").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AG" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C22").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AH" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C23").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AI" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C24").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AJ" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C25").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AK" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C26").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AL" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=-57
    Range("D4").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AM" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D6").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AN" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D7").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AO" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D8").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AP" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D9").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AQ" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D10").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AR" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D11").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AS" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D12").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AT" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D13").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AU" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=9
    Range("D14").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AV" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D15").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AW" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D21").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D22").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AX" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=6
    Range("D23").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AY" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D24").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("AZ" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D25").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BA" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("D26").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BB" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    
    Set WS = wb.Sheets("TI&PW")
    
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=-27
    Range("D2").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("BD" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F2").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BE" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    Range("BF" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C11").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F11").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BG" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C12").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BH" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F12").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=12
    Range("C18").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BJ" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F18").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BK" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C19").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BL" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F19").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BM" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C20").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BN" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F20").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    Range("BP" & iRow).PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C21").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F21").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BQ" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    ActiveWindow.SmallScroll Down:=6
    Range("C27").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BR" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F27").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BS" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C28").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BT" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F28").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BU" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C29").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BV" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F29").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BW" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C30").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BX" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F30").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BY" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C31").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("BZ" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F31").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("CA" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("C32").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("CB" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)
    WS. _
        Activate
    Range("F32").Select
    Application.CutCopyMode = False
    Selection.Copy
    wsSurvey
    Range("CC" & iRow).PasteSpecial (xlPasteValues)
    .PasteSpecial (xlPasteValues)

    wb.Close (False)
    FileName = Dir
    iRow = iRow + 1
Loop

End Sub
票数 0
EN

Stack Overflow用户

发布于 2022-09-05 19:13:11

这就是我录音后的结果

子Extract_Data()‘Extract_Data宏’

代码语言：javascript
复制
enter 
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B2").Select
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("B2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("C2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("D2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("E2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("F2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("G2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Sheets("RF").Select
ActiveWindow.SmallScroll Down:=-54
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("H2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("I2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("I2").Select
ActiveSheet.Paste
Range("J2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("K2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("L2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("M2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("N2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("O2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("P2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("B21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("Q2").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=4
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("R2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B23").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("S2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B24").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("T2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B25").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("U2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("V2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=-18
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("W2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("X2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("Y2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("Z2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AA2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AB2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AC2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AD2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AE2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("C14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AF2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AG2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AH2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C23").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AI2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C24").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AJ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C25").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AK2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AL2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=-57
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AM2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AN2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AO2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AP2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AQ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AR2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AS2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AT2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AU2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=9
Range("D14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AV2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D15").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AW2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AX2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("D23").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AY2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D24").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("AZ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D25").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BA2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("D26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BB2").Select
ActiveSheet.Paste
Range("BC2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Sheets("TI&PW").Select
ActiveWindow.SmallScroll Down:=-27
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("BD2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BE2").Select
ActiveSheet.Paste
Range("BF2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BG2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BH2").Select
ActiveSheet.Paste
Range("BI2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=12
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BJ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BK2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BL2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BM2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C20").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BN2").Select
ActiveSheet.Paste
Range("BO2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F20").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Range("BP2").Select
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BQ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
ActiveWindow.SmallScroll Down:=6
Range("C27").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BR2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F27").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BS2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BT2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BU2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C29").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BV2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F29").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BW2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C30").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BX2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F30").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BY2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C31").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("BZ2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F31").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("CA2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("C32").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("CB2").Select
ActiveSheet.Paste
Windows("Scopes_13753_PO11 WL MW TSSR_GeneratedDraft_20220807171314.xlsx"). _
    Activate
Range("F32").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Survey Data Base.xlsx").Activate
Range("CC2").Select
ActiveSheet.Paste

End子代码在这里

票数 0
EN

Stack Overflow用户

发布于 2022-09-05 20:29:17

@Cyrus这是需要采取的行动清单

注:所有工作簿中所有需要的工作表的名称和顺序相同。

代码语言：javascript
复制
enterSheets("Basic Information").Select
Range("B2").Select
Selection.Copy
ActiveSheet.Paste
Range("B2").Select
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("C2").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("D2").Select
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("E2").Select
Range("F5").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("F2").Select
Range("D5").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("G2").Select
Sheets("RF").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("H2").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("I2").Select
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
Range("I2").Select
ActiveSheet.Paste
Range("J2").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("K2").Select
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Range("L2").Select
ActiveSheet.Paste
Range("B11").Select
Application.CutCopyMode = False
Selection.Copy
Range("M2").Select
ActiveSheet.Paste
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Range("N2").Select
ActiveSheet.Paste
Range("B13").Select
Application.CutCopyMode = False
Selection.Copy
Range("O2").Select
ActiveSheet.Paste
Range("B14").Select
Application.CutCopyMode = False
Selection.Copy
Range("P2").Select
ActiveSheet.Paste
Range("B21").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q2").Select
ActiveSheet.Paste
Range("B22").Select
Application.CutCopyMode = False
Selection.Copy
Range("R2").Select
ActiveSheet.Paste
Range("B23").Select
Application.CutCopyMode = False
Selection.Copy
Range("S2").Select
ActiveSheet.Paste
Range("B24").Select
Application.CutCopyMode = False
Selection.Copy
Range("T2").Select
ActiveSheet.Paste
Range("B25").Select
Application.CutCopyMode = False
Selection.Copy
Range("U2").Select
ActiveSheet.Paste
Range("B26").Select
Application.CutCopyMode = False
Selection.Copy
Range("V2").Select
ActiveSheet.Paste
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Range("W2").Select
ActiveSheet.Paste
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6").Select
Application.CutCopyMode = False
Selection.Copy
Range("X2").Select
ActiveSheet.Paste
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Range("Y2").Select
ActiveSheet.Paste
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Range("Z2").Select
ActiveSheet.Paste
Range("C9").Select
Application.CutCopyMode = False
Selection.Copy
Range("AA2").Select
ActiveSheet.Paste
Range("C10").Select
Application.CutCopyMode = False
Selection.Copy
Range("AB2").Select
ActiveSheet.Paste
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC2").Select
ActiveSheet.Paste
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Range("AD2").Select
ActiveSheet.Paste
Range("C13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AE2").Select
ActiveSheet.Paste
Range("C14").Select
Application.CutCopyMode = False
Selection.Copy
Range("AF2").Select
ActiveSheet.Paste
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
Range("AG2").Select
ActiveSheet.Paste
Range("C22").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH2").Select
ActiveSheet.Paste
Range("C23").Select
Application.CutCopyMode = False
Selection.Copy
Range("AI2").Select
ActiveSheet.Paste
Range("C24").Select
Application.CutCopyMode = False
Selection.Copy
Range("AJ2").Select
ActiveSheet.Paste
Range("C25").Select
Application.CutCopyMode = False
Selection.Copy
Range("AK2").Select
ActiveSheet.Paste
Range("C26").Select
Application.CutCopyMode = False
Selection.Copy
Range("AL2").Select
ActiveSheet.Paste
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM2").Select
ActiveSheet.Paste
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Range("AN2").Select
ActiveSheet.Paste
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Range("AO2").Select
ActiveSheet.Paste
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Range("AP2").Select
ActiveSheet.Paste
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Range("AQ2").Select
ActiveSheet.Paste
Range("D10").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR2").Select
ActiveSheet.Paste
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Range("AS2").Select
ActiveSheet.Paste
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Range("AT2").Select
ActiveSheet.Paste
Range("D13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AU2").Select
ActiveSheet.Paste
Range("D14").Select
Application.CutCopyMode = False
Selection.Copy
Range("AV2").Select
ActiveSheet.Paste
Range("D15").Select
Application.CutCopyMode = False
Selection.Copy
Range("AW2").Select
Range("D21").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("D22").Select
Application.CutCopyMode = False
Selection.Copy
Range("AX2").Select
ActiveSheet.Paste
Range("D23").Select
Application.CutCopyMode = False
Selection.Copy
Range("AY2").Select
ActiveSheet.Paste
Range("D24").Select
Application.CutCopyMode = False
Selection.Copy
Range("AZ2").Select
ActiveSheet.Paste
Range("D25").Select
Application.CutCopyMode = False
Selection.Copy
Range("BA2").Select
ActiveSheet.Paste
Range("D26").Select
Application.CutCopyMode = False
Selection.Copy
Range("BB2").Select
ActiveSheet.Paste
Range("BC2").Select
Sheets("TI&PW").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("BD2").Select
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Range("BE2").Select
ActiveSheet.Paste
Range("BF2").Select
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("F11").Select
Application.CutCopyMode = False
Selection.Copy
Range("BG2").Select
ActiveSheet.Paste
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Range("BH2").Select
ActiveSheet.Paste
Range("BI2").Select
Range("F12").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Range("BJ2").Select
ActiveSheet.Paste
Range("F18").Select
Application.CutCopyMode = False
Selection.Copy
Range("BK2").Select
ActiveSheet.Paste
Range("C19").Select
Application.CutCopyMode = False
Selection.Copy
Range("BL2").Select
ActiveSheet.Paste
Range("F19").Select
Application.CutCopyMode = False
Selection.Copy
Range("BM2").Select
ActiveSheet.Paste
Range("C20").Select
Application.CutCopyMode = False
Selection.Copy
Range("BN2").Select
ActiveSheet.Paste
Range("BO2").Select
Range("F20").Select
Application.CutCopyMode = False
Selection.Copy`enter code here`
ActiveSheet.Paste
Range("BP2").Select
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Range("F21").Select
Application.CutCopyMode = False
Selection.Copy
Range("BQ2").Select
ActiveSheet.Paste
Range("C27").Select
Application.CutCopyMode = False
Selection.Copy
Range("BR2").Select
ActiveSheet.Paste
Range("F27").Select
Application.CutCopyMode = False
Selection.Copy
Range("BS2").Select
ActiveSheet.Paste
Range("C28").Select
Application.CutCopyMode = False
Selection.Copy
Range("BT2").Select
ActiveSheet.Paste
Range("F28").Select
Application.CutCopyMode = False
Selection.Copy
Range("BU2").Select
ActiveSheet.Paste
Range("C29").Select
Application.CutCopyMode = False
Selection.Copy
Range("BV2").Select
ActiveSheet.Paste
Range("F29").Select
Application.CutCopyMode = False
Selection.Copy
Range("BW2").Select
ActiveSheet.Paste
Range("C30").Select
Application.CutCopyMode = False
Selection.Copy
Range("BX2").Select
ActiveSheet.Paste
Range("F30").Select
Application.CutCopyMode = False
Selection.Copy
Range("BY2").Select
ActiveSheet.Paste
Range("C31").Select
Application.CutCopyMode = False
Selection.Copy
Range("BZ2").Select
ActiveSheet.Paste
Range("F31").Select
Application.CutCopyMode = False
Selection.Copy
Range("CA2").Select
ActiveSheet.Paste
Range("C32").Select
Application.CutCopyMode = False
Selection.Copy
Range("CB2").Select
ActiveSheet.Paste
Range("F32").Select
Application.CutCopyMode = False
Selection.Copy
Range("CC2").Select
ActiveSheet.Paste code here
票数 -1
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：

https://stackoverflow.com/questions/73611585

复制
相关文章

相似问题

领券

腾讯云开发者

扫码关注腾讯云开发者

扫码关注腾讯云开发者

领取腾讯云代金券

热门产品

热门推荐

更多推荐

Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有 

深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 粤公网安备44030502008569号

腾讯云计算（北京）有限责任公司 京ICP证150476号 |  京ICP备11018762号

问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档