2

我有大约 30 个工作表(一个月中的几天),每张工作表上

我想将每个工作表上的范围A293:AL293和值复制A296:AL296到我的活动工作表中(例如,从每月 1 日到 30 日的连续行中)。

这些范围分别使用 MINPERCENTILE公式。但是,当我运行宏时,单元格包含 !REF 错误,因为复制的是公式而不是实际的单元格值。

我应该如何修改宏,使其复制和粘贴值而不是公式?

我从另一个用于将数据从 30 张纸复制并粘贴到一张纸中的宏修改的代码是:

Sub test()
Dim curRow As Integer
Dim activeWorksheet As Worksheet
Set activeWorksheet = ActiveSheet
curRow = 1
For Each ws In ActiveWorkbook.Worksheets
    If Not ws.Name = activeWorksheet.Name Then
        ws.Range("A293:AL293").Copy Destination:=activeWorksheet.Range(CStr(curRow) & ":" & CStr(curRow + 288))
     curRow = curRow + 289   
    End If
Next ws
End Sub

我发现的另一个代码是:

Option Explicit
Sub CreateTempPSDReport()
Dim WS As Worksheet, Rept As Worksheet

Set Rept = Sheets("Temporary PSD Report")
Application.ScreenUpdating = False

'--> Loop through each worksheet except the report and
'--> Copy the set range to the report
For Each WS In ThisWorkbook.Worksheets
    If Not WS.Name = "Temporary PSD Report" Then
        WS.Range("A42", "I42").Rows.Copy
        Rept.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End If
Next
Application.ScreenUpdating = True
End Sub

但我不确定是什么

        WS.Range("A42", "I42").Rows.Copy
        Rept.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

部分可以。

谢谢!

4

1 回答 1

1

要将这对行复制到摘要表中,您可以执行此操作。需要注意的两点

  • 使用 复制值而不是公式.Value。在这种情况下,我使用.Value2
  • 您不需要复制和粘贴(除非您想复制格式),您可以简单地将一个范围设置为等于另一个范围中的值

    Sub test()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lngCnt As Long
    
    Set ws1 = ActiveSheet
    Application.ScreenUpdating = False
    For Each ws2 In ActiveWorkbook.Worksheets
        If Not ws1.Name = ws2.Name Then
            ws1.[a1].Offset(lngCnt, 0).Resize(1, 38).Value2 = ws2.Range("A293:AL293").Value2
            ws1.[a1].Offset(lngCnt + 1, 0).Resize(1, 38).Value2 = ws2.Range("A296:AL296").Value2
            lngCnt = lngnct + 2
        End If
    Next ws2
    Application.ScreenUpdating = True
    End Sub
    
于 2012-10-01T07:03:39.470 回答