我对 Excel 宏很陌生。我在 Excel 中有以下数据：
Col1 Col2 col3 col4 Col5
32 000-001 1
32 002-001 100
32 005-000 20
等等。我的 Excel 电子表格中有 6313 行。
我想拆分 col2 并将前三个数字放在 col3 中的连字符之前，并将最后三个数字放在 col4 中。我还想从 col2 中删除连字符，这样我的最终输出将是这样的：
col1 col2 col3 col4 col5
32 000001 000 001 1
32 002001 002 001 100
332 005000 005 000 20
这是我已经尝试过的。我试图用空格替换连字符，然后我丢失了所有前导零。我不想丢失 col2 的所有前导零。
任何帮助将不胜感激。
试试这个：
Sub aljali()
Dim i As Long, N As Long
Range("A:E").NumberFormat = "@"
N = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To N
Cells(i, "B").Value = Replace(Cells(i, "B").Value, "-", "")
Cells(i, "C").Value = Left(Cells(i, "B").Value, 3)
Cells(i, "D").Value = Right(Cells(i, "B").Value, 3)
Next i
End Sub
笔记：
关键是将单元格的格式设置为Text。这有助于保留那些前导零。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句