答案1
答案2
尝试这个简短的宏:
Sub NoSpace()
Dim rng As Range, r As Range
Set rng = Intersect(ActiveSheet.UsedRange, Range("B:B"))
For Each r In rng
If Left(r.Text, 1) = " " Then
r.Value = Mid(r.Text, 2)
End If
Next r
End Sub
答案3
如果您不想使用宏,您只需执行一次此操作,您不想再有另一列,并且您的日期都来自一两年:
- 选择列,
- 查找替换
“2016-” 改为“2016-”(当然没有引号)