很乱的日期重新格式化，请版主和大侠们出手

张劲松2024

A列修改后变成B列的格式，按此格式重组A列，同时统计混凝土总量。

kevinchengcw

简单公式再设置一下日期格式就行了

limonet

=--SUBSTITUTE(A3,".","-")

chxw68

代码只针对1楼中的数据有效。

nihao123456789

1. Sub 日期()
   
2. 
   
3.     Range("A3:A15").Replace What:=".", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
4.     Range("A3:A15").NumberFormatLocal = "yyyy-mm-dd;@"
   
5.    
   
6. End Sub

复制代码

张劲松2024

谢谢！！！！！！！！！！！！！！！！！！

kyxfyzg

参与一下。。。

翁知江安

Sub 转换()
Dim i, j, k, m
Dim irow
Dim arr, brr
irow = Sheet1.[a65336].End(xlUp).Row
arr = Sheet1.Range("a1:e" & irow)
Sheet1.Range("b3:b100").Clear
Sheet1.Cells(irow - 1, 4).Resize(20, 1).Clear
ReDim brr(1 To irow - 4, 1 To 1)
For i = 3 To irow - 2
   arr(i, 5) = Application.WorksheetFunction.Substitute(arr(i, 1), ".", "/")
    j = j + 1
    If Len(arr(i, 5)) <= 5 Then
       brr(j, 1) = "2024/" & arr(i, 5)
       Else
          If Len(arr(i, 5)) > 10 Then
            brr(j, 1) = ""
            Else
              brr(j, 1) = arr(i, 5)
          End If
     End If
    If brr(j, 1) < #10/20/2024# Then
        k = k + arr(i, 4)
        Else
          m = m + arr(i, 4)
    End If
Next
Sheet1.[b3].Resize(UBound(brr), 1) = brr
Sheet1.Cells(irow - 1, 4) = k
Sheet1.Cells(irow, 4) = m
End Sub

张劲松2024

再次感谢！！！！！！！！！！！！！！！

vb爱好者洗衣机

我也来答个题。
之前没保存好有错误，已修改。