Excel VBA : Maintaining number formatting with digits and letters

Question

我正在编写一个代码，基本上我需要遵循逻辑顺序。我正在遍历所有行

Set rep = Sheets("Details")    
For i = 2 To n    
If Sheets("Work").Range("A:A").Find(Worksheets("Work_report").Range("E" & i).Value, lookat:=xlWhole) Is Nothing Then    
Else:    
o = rep.Range("A" & Rows.Count).End(xlUp).Row + 1    
rep.Range("A" & o).Value = "FT_EXCEL"    
rep.Range("B" & o).Value = Sheets("Start").Range("C5") & "AB" & o - 1    
End If    
Next i    

所以最后一行(原始代码中有超过 50 行)返回单元格 C5 (20170331) & AB & o 减 1 的值(因为我从 2 (第一行标题)开始)。所以这给出了 20170331AB1，但它应该给出 20170331AB01(0 之前的零)。这个序列在 10 点之后就像一个魅力，但在 10 点之前，当我需要添加一个零时 - 我被卡住了。

有什么想法吗？谢谢。

Answer 1

试试这个:

rep.Range("B" & o).Value = Sheets("Start").Range("C5") & "AB" & Format(o - 1, "00")