我在Excel中有两个工作表。我已根据用户在工作表2 中插入的一些值，编写了以下代码，将某些数据从工作表1 复制到工作表2

宏工作正常，并完成了我需要做的事情，但是将其写下来之后，我意识到了两件事：

1. 一小套记录（大约260条）要花费相当长的时间，因为它一次要一行。
2. 我读到使用 .select 并不是一个好习惯，并且我修改了代码以免使用它，但是我想知道是否可以改善代码以使其更快地工作。我确实使用过。

所以，我的主要问题是：

1. 如何提高代码速度，以便能够更快地读取副本行。
2. 在这种情况下，最好使用 .select ，这样可以更快地工作。

我的代码如下：

Private Sub FillUp()
Dim DateVal,EquivalentDate As Date
Dim CrncyVal
Dim CountrVal
Dim DataRng As Range
Dim endrow As Long,startrow As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
'Selecting the worksheets
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

''''declaring date,country and currency variables''''
DateVal = ws2.Range("E3").Value
CountryVal = UCase(ws2.Range("H3").Value)
CurrencyVal = UCase(ws2.Range("H4").Value)
EquivalentDateVal = DateAdd("yyyy",-1,DateVal)
'declaring other useful variables
startrow = 3
pasterow = 6
endrow = ws1.Cells(Rows.Count,1).End(xlUp).Row
'delete the range we will be working with
ws2.Range("A6:F265").Clear

'start the ifs,to see what info the user wants to get
If ws2.Range("E3").Value = "" Then
    'If the country cell is empty,we do nothing. We need at least this info
    MsgBox prompt:="You didn't choose a month!!",Title:="Error: Please Choose a Month"
    Exit Sub
ElseIf ws2.Range("H3").Value = "" Then
    For i = 3 To endrow
        If ws1.Cells(i,3).Value <> "TOT" Then

            With ws1
                Set Rng = .Range(.Cells(i,1),.Cells(i,5))
            End With

            Rng.Copy
            ws2.Cells(pasterow,1).PasteSpecial
            ws2.Cells(pasterow,6) = DateVal

            pasterow = pasterow + 1
        End If
    Next i
    Exit Sub

ElseIf ws2.Range("H4").Value = "" Then            
    For i = 3 To endrow
        If ws1.Cells(i,3).Value <> "TOT" Then
            If ws1.Cells(i,1).Value = CountryVal Then

                With ws1
                    Set Rng = .Range(.Cells(i,5))
                End With

                Rng.Copy
                ws2.Cells(pasterow,1).PasteSpecial
                ws2.Cells(pasterow,6) = DateVal

                pasterow = pasterow + 1 
            End If
        End If
    Next i
    Exit Sub
Else
    For i = 3 To endrow
        If ws1.Cells(i,1).Value = CountryVal Then
                If ws1.Cells(i,2).Value = CurrencyVal Then

                    With ws1
                        Set Rng = .Range(.Cells(i,5))
                    End With

                    Rng.Copy
                    ws2.Cells(pasterow,1).PasteSpecial
                    ws2.Cells(pasterow,6) = DateVal

                    pasterow = pasterow + 1
                End If
            End If            
        End If
    Next i
    Exit Sub

End If
End Sub

欢迎大家对我如何以更快的速度或更好的方式获得代码的任何帮助或意见，因为我对整个Excel / VBA世界都是陌生的。

谢谢！