Question

求VBA大神帮忙看看代码！！不胜感激!!

如图，将数据表格中按日期整行复制到SHEET表2，运行到这一步提示13,不胜感激！~





Answer 1

Sub zz()
 ar = Sheet1.Range("B4").CurrentRegion
 js = Sheet2.[b2]
 ks = Sheet2.[a2]

 For i = 1 To UBound(ar)
  k = CDate(Replace(ar(i, 1), ".", "-"))
  If k >= ks And k <= js Then
   m = m + 1
   For j = 1 To UBound(ar, 2)
    ar(m, j) = ar(i, j)
   Next
  End If
 Next
 Sheet2.UsedRange.Offset(2).ClearContents
 Sheet2.Range("b4").Resize(m, UBound(ar, 2)) = ar
End Sub

代码没问题，你看看你自己代码左边的工程，表名称对不对应代码。