使用 VBA If then 语句复制和粘贴数据

Question

我是一个全新的 VBA 用户，尝试根据日期范围复制和粘贴数据。在第一列我有日期，在第二列我有我想复制和粘贴的数据。 CurYear 是指我正在寻找的范围内的结束日期，而 StatDate 是指我正在寻找的范围内的开始日期。当我运行此代码时，它会使 Excel 崩溃。请帮助我很迷茫

Worksheets("Weekly").Select

Dim nRows As Integer
Dim CurYear As Date
Dim StartDate As Date

nRows=Range("A1").CurrentRegions.Count.Rows
CurYear=Range("I265").Value
StartDate=Range("M5").Value

Do While Cells(nRows,1)<>""

if Cells(nRows,1).Value< CurYear & Cells(nRows,1)> StartDate Then

Cells(nRows,1).Offset(0,1).Copy
Worksheets("Weekly").Range("H41").Paste

Loop
End If

Answer 1

将“选项显式”放在代码顶部（子代码之前），它会告诉您要修复的问题。这样做将修复您的错误部分，即您的 end if 在循环之外而不是在循环内部，但它不会发现您没有更改循环计数器。试试这个代码。它实际上与您所做的一些小改动几乎相同。

Option Explicit
Sub test()
Dim sht As Worksheet, i As Long, l As Long, j

Dim nRows As Integer
Dim CurYear As Date
Dim StartDate As Date

Set sht = Worksheets("Test1") ' set the sheet as object isntead of selecting it for faster code and avoiding other issues

nRows = Cells(sht.Rows.Count, "B").End(xlUp).Row 'Last used row in column B - current region lastrow gets twitchy in some circumstances and should be avoided unless there is a reason to use it
l = 41

CurYear = range("I265").Value
StartDate = range("M5").Value

For i = 1 To nRows
  If Cells(i, 1).Value < CurYear And Cells(i, 1).Value > StartDate Then 'for If statements you use "and" not "&"
  Cells(l, 15) = Cells(i, 2) 'you will want something like this line and the next if you don't want to overwrite H41 if there is more than one match
  l = l + 1
  End If
Next i

End Sub

另外，为了帮助调试，打开本地窗口（在 VBE 中查看）。使用 F8 单步执行您的代码，在 locals 窗口中查看您的变量，以确保它们是您在脚本中该步骤所期望的。

如果您对代码执行此操作，您会发现您的循环变量缺少计数器更改。所以它一直在寻找 nRow 最终成为“”，但它保持在它设置的任何位置。无限循环。我将其更改为 for next 格式，但 6 of 1 和半打另一种用于您的代码。

欢迎使用 VBA。不要戳你的眼睛。 :-)

Answer 2

与其使用使用大量内存并使程序运行缓慢的复制/粘贴，您可能需要考虑以下代码，它与您的代码或罗杰的代码具有相同的目的，但比使用Select 和复制/粘贴语法。

Sub Test()
Dim nRows As Long, LastRow As Long   'Declare as Long instead of Integer to avoid overflow
Dim CurYear As Date, StartDate As Date

LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'Count the last used row in column 1 where you put the first data (dates)
nRows = 2    'Set the starting point of row where you put the first data (dates). In this example I use 2
CurYear = Range("I265").Value
StartDate = Range("M5").Value

Do
    If Cells(nRows, 1).Value < CurYear And Cells(nRows, 1) > StartDate Then 'Use And not &
        Cells(nRows, 5).Value = Cells(nRows, 2).Value   'This is essentially a "copy/ paste" syntax. Change the value (5) to the column you want to paste the value in column 2
    End If
    nRows = nRows + 1   'Set an increment value so each looping the nRows will increase by 1
Loop Until nRows = LastRow + 1   'Added by 1 so that the data in LastRow will keep being processed

End Sub