[求助] CHAT-GPT VBA代码如下，无法实现预期结果。

ttiemike

请大家帮忙看一下CHAT-GPT得出的代码，但无法实现预期结果。谢谢！

我的描述：
       写一段VBA代码： 首先筛选出列A中值为"S02876"的行,对筛选出来的数据批量修改，条件是：如果K列的日期小于2023-02-25，E列的值都改成"555"，如果K列的日期大于2023-02-25，E列的值都改成"666"

CHAT-GPT得出的代码：
         
Sub ModifyData()

Dim currentDate As Date
currentDate = #02/25/2023#
ActiveSheet.Range("$A$1:$K$100000").AutoFilter Field:=1, Criteria1:="S02876"
ActiveSheet.Range("$A$1:$K$100000").AutoFilter Field:=11, Criteria1:="<" & Format(currentDate, "yyyy-mm-dd")
Set filteredRange = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
For Each cell In filteredRange.Columns(5).Cells
    cell.Value = "555"
Next cell
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("$A$1:$K$100000").AutoFilter Field:=11, Criteria1:=">" & Format(currentDate, "yyyy-mm-dd")
Set filteredRange = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
For Each cell In filteredRange.Columns(5).Cells
    cell.Value = "666"
Next cell
ActiveSheet.AutoFilterMode = False
End Sub



请注意，在上面的代码中，currentDate = #2/25/2023# 一直 无法改成  #2023-02-25# ，不知什么原因

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a2:l" & r)
   
7.         For i = 1 To UBound(arr)
   
8.             If arr(i, 1) = "S02876" Then
   
9.                 If CDate(arr(i, 11)) < #2/25/2023# Then
   
10.                     arr(i, 5) = 555
    
11.                 Else
    
12.                     arr(i, 5) = 666
    
13.                 End If
    
14.             End If
    
15.         Next
    
16.         .Range("e2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 5)
    
17.     End With
    
18. End Sub
    

复制代码

chxw68

重新写了一段。

ttiemike

chxw68 发表于 2023-5-4 22:01
重新写了一段。

非常感谢chxw68l的帮助，决胜CHAT-GPT千里。

ttiemike

chxw68 发表于 2023-5-4 22:01
重新写了一段。

chxw68老师好，
        数据量不多的情况下，程序运行正常，谢谢。
        我的数据有4万多条，程序在运行的时候，报错提示“实时错误6，溢出”。
        可能原因：赋值的变量超出了定义的范围，不知是否有其他方法？望解答。

Yalishanda30

ttiemike 发表于 2023-5-5 18:13
chxw68老师好，
        数据量不多的情况下，程序运行正常，谢谢。
        我的数据有4万多条，程序 ...

Dim r%, i%改成dim r,i

chxw68

ttiemike 发表于 2023-5-5 18:13
chxw68老师好，
        数据量不多的情况下，程序运行正常，谢谢。
        我的数据有4万多条，程序 ...

6楼朋友正解。

ttiemike

chxw68 发表于 2023-5-5 21:22
6楼朋友正解。

谢谢chxw68老师

ttiemike

Yalishanda30 发表于 2023-5-5 18:39
Dim r%, i%改成dim r,i

谢谢Yalishanda30老师