去时分只保留日期，并将文本转为日期格式

vision69

签到时间是文本格式的 日期+时分
想要的结果：用VBA，去掉时分，只保留日期，日期还在B列原来的单元格中，并转为日期格式

见附件

hongshan2019

day

iu950

附件供参考。。。

wj2368

。。。。。。。。。。。。。。。。。。。。

wengjl

Sub ss()
   
    x1 = 2
    Do While Not (IsEmpty(Sheet1.Cells(x1, 2).Value))
      Cells(x1, 2).Value = Cells(x1, 2).Value
      Cells(x1, 2).Select
      Selection.NumberFormatLocal = "yyyy/m/d"
      x1 = x1 + 1
    Loop
   
End Sub

zyr2046

1. Sub TestSub()   '//答题专用套路-By瘾大技术差
   
2.     Dim i, j, k, arr, brr, crr, Rng As Range, Sht As Worksheet
   
3.     arr = Sheet1.Range("l2:l" & Sheet1.Cells(Rows.Count, 12).End(xlUp).Row)
   
4.     ReDim brr(1 To UBound(arr), 1 To 1)
   
5.     For i = 1 To UBound(arr)
   
6.         Key = CDate(Left(arr(i, 1), 10))
   
7.         brr(i, 1) = Int(Key)
   
8.     Next
   
9.     Sheet1.Range("b2:b60000").ClearContents
   
10.     Sheet1.Range("b2").Resize(UBound(arr), 1) = brr
    
11. End Sub

复制代码

vision69

wj2368 发表于 2023-4-28 08:47
。。。。。。。。。。。。。。。。。。。。

非常感谢，学习了！

vision69

wj2368 发表于 2023-4-28 08:47
。。。。。。。。。。。。。。。。。。。。

学习了，非常感谢！

zxsea_7426

格式设置就把尾巴隐藏了
如果硬要把尾巴去掉，也是格式设置

1. Sub test()
   
2.     ar = Range([b2], Cells(Rows.Count, "B").End(3))
   
3.     For i = 1 To UBound(ar)
   
4.         ar(i, 1) = Format(ar(i, 1), "yyyy/mm/dd")
   
5.     Next i
   
6.     Range([b2], Cells(Rows.Count, "B").End(3)).NumberFormatLocal = "yyyy/mm/dd"
   
7.     Range([b2], Cells(Rows.Count, "B").End(3)) = ar
   
8. End Sub

复制代码

没有循环就是隐藏尾巴.回味了循环就是尾巴完全去除了

准提部林

With Range("b:b")
     .NumberFormatLocal = "yyyy/mm/dd"
     .Replace " *", "", lookat:=xlPart
End With