欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

【办公-excel】VBA拼接字段内容

程序员文章站 2022-05-14 22:57:48
...
'A1 B2 C3 D4 E5  F6 G7 H8 I9 J10
'K11 L12 M13 N14 O15 P16 Q17 R18
'S19 T20 U21 V22 W23 X24 Y25 Z26
Public Sub Connect()
    Dim KqData, i
    Dim result(1 To 10000, 1 To 2)
    KqData = Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("A:G"))
    For i = 1 To UBound(KqData, 1)
        result(i, 1) = "10" & Format(KqData(i, 2)) & Format(KqData(i, 3), "000")
    Next i
    ActiveSheet.[E1].Resize(UBound(KqData, 1), 1) = result
End Sub

测试表格内容

10 1 外网0
20 2 外网1
30 3 外网2
40 4 外网3