平时用公式表达的，如何用代码

大灰狼1976

sampsonpon 发表于 2024-10-18 10:39
这样直接对单元格处理，计算速度太慢、超级慢
Sub test()
   

如果数据量多就把单元格操作换成数组操作，方法基本一样的，你自己先试试

sampsonpon

大灰狼1976 发表于 2024-10-18 11:40
如果数据量多就把单元格操作换成数组操作，方法基本一样的，你自己先试试

这是AI给改的代码，计算照样超慢
Sub test2()
   
    Application.ScreenUpdating = False
   
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataArray() As Variant
    Dim i As Long
   
    Set ws = ThisWorkbook.Sheets("OPO")
    lastRow = ws.Cells(ws.Rows.Count, "f").End(xlUp).Row
   
    ReDim dataArray(1 To lastRow, 1 To 5)
   
    For i = 2 To lastRow
        dataArray(i, 1) = Replace(ws.Cells(i, "l") & ws.Cells(i, "m"), " ", "")
        dataArray(i, 2) = ws.Cells(i, "ae") - ws.Cells(i, "p")
        dataArray(i, 3) = ws.Cells(i, "q") - ws.Cells(i, "b")
        dataArray(i, 4) = IIf(Date > ws.Cells(i, "t"), "Y", "N")
        dataArray(i, 5) = Format(Year(ws.Cells(i, "t")) & DatePart("ww", ws.Cells(i, "t")))
    Next i
   
    For i = 2 To lastRow
        ws.Cells(i, 1) = dataArray(i, 1)
        ws.Cells(i, 2) = dataArray(i, 2)
        ws.Cells(i, 3) = dataArray(i, 3)
        ws.Cells(i, 4) = dataArray(i, 4)
        ws.Cells(i, 5) = dataArray(i, 5)
    Next i
   
    Application.ScreenUpdating = True
   
End Sub

sampsonpon

ykcbf1100 发表于 2024-10-17 20:16
一年中的第几周VBA表达：
1、DatePart("ww", date)
2、WorksheetFunction.WeekNum(date, 21)

DatePart("ww", date)
这个周期是从周一开始到周日结束对吧？
如果把周数保留两位数的话如何处理？也就是说遇到周数是一位数的话要在前面加0

大灰狼1976

sampsonpon 发表于 2024-10-18 13:17
这是AI给改的代码，计算照样超慢
Sub test2()
   

这个代码里面，数组是来刷存在感的，本质仍然是单元格操作。

ykcbf1100

sampsonpon 发表于 2024-10-18 17:02
DatePart("ww", date)
这个周期是从周一开始到周日结束对吧？
如果把周数保留两位数的话如何处理？也就 ...

你试一下就知道了。

sampsonpon

ykcbf1100 发表于 2024-10-18 20:46
你试一下就知道了。

这是AI给的代码，但报错了。老师您能帮我看看是哪里问题吗？