Option Explicit
Sub TEST()
Dim Brr, i&, j&, T$, xR As Range, Sh As Worksheet
Set Sh = Sheets("工作表1")
Set xR = Range(Sh.[C1], Intersect(Sh.[D1].CurrentRegion, [D:G]))
Intersect(xR, [C:C]).ClearContents: Brr = xR
For i = 1 To UBound(Brr)
T = Brr(i, 1)
For j = 2 To UBound(Brr, 2)
T = Replace(T & " " & Format(Brr(i, j), "e/m/d"), " ", " ")
Next
Brr(i, 1) = Trim(T)
Next
xR = Brr
Set xR = Nothing: Set Sh = Nothing: Erase Brr
End Sub
發表於 2023-4-12 16:21
| 
