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

少莫千华

于 2018-05-17 18:06:58 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏：办公软件

本文链接：https://blog.youkuaiyun.com/chenlu5201314/article/details/80354811

办公软件专栏收录该内容

27 篇文章

订阅专栏

本文提供了一个使用VBA进行表格处理的示例代码，演示了如何读取Excel表格中的数据，并对其进行格式化处理，最后将处理后的数据显示在同一工作表中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'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