字符串格式丢失

Question

我已经编写了这段代码来创建分支机构号码中的电子邮件地址列表.所有地址都采用以下格式: lp0000@xxx.co.uk

问题是一些分支数字是3位数,所以在这些之前插入零,例如681变为0681.我通过使用自定义数字格式来做到这一点,0000但由于每个的实际值仍然000是在创建电子邮件地址时从零开始就失去了.

我可以编写更多代码来复制数字格式,还是需要先编写一些内容来查找所有三位数字,然后在它们之前插入0.

Option Explicit
Sub Pop_Emails()
    Dim brno As String
    Dim i As Integer
    Dim wks As Worksheet

    Set wks = Sheets("1A")
    i = 2
    Do While i <> 191
        With wks
            brno = .Cells(i, 1).Value
            .Cells(i, 3) = "lp" & brno & "@xxxx.co.uk"
        End With
    i = i + 1
    Debug.Print brno
    Loop
End Sub

Answer 1

如果(i, 1)是"0001"自定义格式:

 brno = .Cells(i, 1).Value

将1,以简单地获取格式化的值:

 brno = .Cells(i, 1).Text