Question

我对VBA的了解接近于零，但是我找到了一个可以改变以达到我的目的的代码。现在唯一的事情是这个代码只为名为＆＃34; test＆＃34;的工作表运行。我需要为同一文件上的所有工作表运行此代码。

非常感谢。

Sub MyCopyPasteValues()
' CopyPasteValus Macro
' Macro to hard code last weeks data.

Dim i As Byte, ws As Worksheet

Set ws = Worksheets("test")

For y = 7 To 24

    For i = 3 To 4

        If ws.Cells(y, 2).Value < ws.Range("K" & 7).Value Then

            ws.Cells(y, i).Value = ws.Cells(y, i).Value

        End If

    Next i

Next y

End Sub

Answer 1

这应该这样做：

Sub MyCopyPasteValues() ' CopyPasteValus Macro ' Macro to hard code last weeks data.
Dim i As Byte, ws As Worksheet
For Each ws In Worksheets
    For y = 7 To 24
        For i = 3 To 4
            If ws.Cells(y, 2).Value < ws.Range("K" & 7).Value Then
                ws.Cells(y, i).Value = ws.Cells(y, i).Value
            End If
        Next i
    Next y
Next
End Sub

Answer 2

我想这就是你要找的东西：

Option Explicit

Sub MyCopyPasteValues()
' CopyPasteValus Macro
' Macro to hard code last weeks data.

Dim ws As Worksheet
Dim Y As Long, i As Long

For Each ws In ThisWorkbook.Worksheets
    For Y = 7 To 24
        For i = 3 To 4
            If ws.Cells(Y, 2).Value < ws.Range("K7").Value Then
                ws.Cells(Y, i).Value = ws.Cells(Y, i).Value
            End If
        Next i
    Next Y
Next ws

End Sub

在所有工作表上运行VBA

2 个答案: