若A欄請將Column=2改為Column=1 .Value = VBA.DateSerial(.Value, 1, 1) .NumberFormatLocal = """民國""e" End If End If End With Application.EnableEvents = True
確定! 回上一頁