Excel宏循环表选择问题

我是新来的编码，并试图让这个循环工作一段时间没有太多的成功。我需要这个宏循环遍历除前两张纸（主纸和计算纸）之外的每张纸，并将数据移动到指定的主纸张或计算纸张。感谢您提前给予的任何帮助。Excel宏循环表选择问题

Dim i As Integer 

Dim WS_Count As Integer 

While i > 2 
    Sheets("Master").Select 
    Range("A2:R2").Select 
    Selection.Insert shift:=xlDown, copyOrigin:=xlFormatFromLeftOrAbove 
    Sheets("Calculations").Select 
    Range("A:G").Select 
    Selection.Insert shift:=xlRight, copyOrigin:=xlFormatFromLeftOrAbove 
'Calculational sheet formating 
    sheet (i).Select 
    Range("B7").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Calculations").Select 
    Range("A1").Select 
    ActiveSheet.Paste 
    Sheets(i).Select 
    Range("C1").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Calculations").Select 
    Range("B1").Select 
    ActiveSheet.Paste 
' Subject & Number: Data Input to Master Sheet 
' Locations: Data File: B7 Master: A2 
    Sheets(i).Select 
    Range("B7").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Master").Select 
    Range("A2").Select 
    ActiveSheet.Paste 
' Date: Data Input to Master Sheet 
' Locations: Data File: C5 Master: B2 
    Sheets(i).Select 
    Range("C5").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Master").Select 
    Range("B2").Select 
    ActiveSheet.Paste 
' Experiment Name 
' Locations: Data File: B8 Master: C2 
    Sheets(i).Select 
    Range("B8").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Master").Select 
    Range("C2").Select 
    ActiveSheet.Paste 
' Group Number 
' Locations: Data File: B9 Master: D2 
    Sheets(i).Select 
    Range("B9").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Master").Select 
    Range("D2").Select 
    ActiveSheet.Paste 
' Box Number: 2 or 4 
' Locations: Data File: B10 Master: E2 
    Sheets(i).Select 
    Range("B10").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Master").Select 
    Range("E2").Select 
    ActiveSheet.Paste 
' Total Time in box (S): Over all experiment time 
' Locations: Data File: B27 Master: F2 
    Sheets(i).Select 
    Range("B27").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Master").Select 
    Range("F2").Select 
    ActiveSheet.Paste 
' Time In Box (E): Sum(all E)- Values are summed in the calculations sheet 
(A1:A20,F1:F20) 
' Locations: Data File: C32:G32, Calculations: A2:G2 Master: G2 
    Sheets(i).Select 
    Range("C32:G32", Range("C32:G32").End(xlDown)).Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Calculations").Select 
    Range(A2).Select 
    ActiveSheet.Paste 
    Range("F10") = WorksheetFunction.Sum(Range("A2:E2", 
    Range("A2:E2").End(xlDown))) 
    Range("F10").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Calculations").Select 
    Range("F11").Select 
    ActiveSheet.Paste 
    Range("F11").Select 
    Application.CutCopyMode = False 
    Selection.Cut 
    Sheets("Master").Select 
    Range("G2").Select 
    ActiveSheet.Paste 
' Entries (J): count (# tunnel time stamps) 
' locations: Data File: B21 Master: H2 
    Sheets(i).Select 
    Range("B21").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Master").Select 
    Range("H2").Select 
    ActiveSheet.Paste 
' Average Time In Box: Average (all E) 
' Locations: Data File: C32:G32, Calculations: A22 Master: I2 
    Sheets(i).Select 
    Range("C32:G32", Range("C32:G32").End(xlDown)).Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Calculations").Select 
    Range("A22").Select 
    ActiveSheet.Paste 
    Range("F30") = WorksheetFunction.Average(Range("A2:E2", 
    Range("A2:E2").End(xlDown))) 
    Range("F30").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Calculations").Select 
    Range("F31").Select 
    ActiveSheet.Paste 
    Range("F31").Select 
    Application.CutCopyMode = False 
    Selection.Cut 
    Sheets("Master").Select 
    Range("I2").Select 
    ActiveSheet.Paste 
' Trail Number: (A) Data Input to Master sheet 
' Locations: Data File: B14 Master: J2 
Sheets(i).Select 
Range("B14").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Master").Select 
Range("J2").Select 
ActiveSheet.Paste 
' Lever Presses: (B) Data Input to Master sheet 
' Locations: Data File: B15 Master: K2 
Sheets(i).Select 
Range("B15").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Master").Select 
Range("K2").Select 
ActiveSheet.Paste 
' Food cup checks (K): 
' Locations: Data File: B22 Master: L2 
Sheets(i).Select 
Range("B22").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Master").Select 
Range("L2").Select 
ActiveSheet.Paste 
' Pellet reward numbers's (P/O) 
' Locations: Data File: B23 Master: M2 
Sheets(i).Select 
Range("B23").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Master").Select 
Range("M2").Select 
ActiveSheet.Paste 
' Food Retrieval latency: Food cup stamp - lever time stamp/total trials * 
100 
' Locations: Data File:((C35:G35)-(C83:G83))/B14*100, Calculations A42, A62, 
F41, F42, F43, F44, F45 Master: N2 
Sheets(i).Select 
Range("C35:G35", Range("C35:G35").End(xlDown)).Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Calculations").Select 
Range("A42").Select 
ActiveSheet.Paste 
    Sheets(i).Select 
    Range("C83:G83", Range("C83:G83").End(xlDown)).Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Calculations").Select 
    Range("A62").Select 
    ActiveSheet.Paste 
    Range("F41") = WorksheetFunction.Sum(Range("A42:G42", 
    `Range("A42:G42").End(xlDown))) 
    Range("F42") = WorksheetFunction.Sum(Range("A62:G62", 
    Range("A62:A62").End(xlDown))) 
     Range("F43").Value = Range("F41") - Range("F42") 
      Sheets(i).Select 
      Range("B14").Select 
      Application.CutCopyMode = False 
      Selection.Copy 
      Sheets("Calculations").Select 
      Range("F44").Select 
      ActiveSheet.Paste 
      Range("F45").Value = (Range("F43")/Range("F44")) * 100 
       Range("F45").Select 
       Application.CutCopyMode = False 
       Selection.Copy 
       Sheets("Calculations").Select 
       Range("F46").Select 
       ActiveSheet.Paste 
       Range("F46").Select 
       Application.CutCopyMode = False 
       Selection.Cut 
       Sheets("Master").Select 
       Range("N2").Select 
       ActiveSheet.Paste 
    ' File Name 
    ' Location: Data File:C1 Master: O2 
    Sheets(i).Select 
Range("C1").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Master").Select 
Range("O2").Select 
ActiveSheet.Paste 
Wend 

'Exit Handler updates the view screen so that your on the last sheet of data 
added to the file and exits the subroutine 
ExitHandler: 
Application.ScreenUpdating = True 
Set wkbAll = Nothing 
Set wkbTemp = Nothing 
Exit Sub 

ErrHandler: 
MsgBox Err.Description 
Resume ExitHandler 

End Sub

来源

2017-06-27 Zackerk

这是一个庞大的代码块。为了清晰起见，我在这里回答这个问题，而不是评论，即使它不是对问题的“回答”......它可能会显示如何压缩代码并减少很多错误潜力。

相反的：

Sheets(i).Select 
Range("B14").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Calculations").Select 
Range("F44").Select 
ActiveSheet.Paste

你可以简单地说：

Sheets("Calculations").Range("F44").Value = Sheets(i).Range("B14").Value

如果你这样做你的代码块，它会通过3-4倍缩小尺寸，并使它成为不少更容易让你自己和论坛的读者来帮助你。

您不需要选择工作表并复制和粘贴，您可以直接告诉sheet xyz其范围A1值是另一个表格范围A1的值。

编辑：你也可以告诉一个范围，它的公式与另一个范围相同，如果这是你所需要的。例如Worksheets("Sheet1").Range("B1").Formula = Worksheets("Sheet2").Range("B1").Formula

无论哪种方式，你的代码可以简化很多，如果你期待摆脱Select ing，它使每个人的工作更容易！

来源

2017-06-27 19:12:59 jamheadart

将单元格的“值”设置为另一个单元格的“值”与将一个单元格复制到另一个单元格不同 - 默认情况下，复制/粘贴将复制公式（和格式）而不是值。我怀疑OP **是**只是试图复制值，但你应该添加一个警告来说明这个“答案”，以防万一他们不这样做。（他们的代码仍然可以通过使用'Sheets（i）.Range（“B14”），复制表格（“Calculations”）。Range（“F44”）'等）来简化 – YowE3K

这是一个很好的观察，当然您可以按照相同的方式将'Value'分配给'Formula'，具体取决于需求。我会更新我的非答案来反映。 – jamheadart

Excel宏循环表选择问题

回答

相关问题