VBA编程实现EXECL根据表2数据修改表1

最新推荐文章于 2023-02-22 14:02:58 发布

原创

最新推荐文章于 2023-02-22 14:02:58 发布 · 731 阅读

0 ·

CC 4.0 BY-SA版权

‘在做的PLC项目中，需要将PLC中的所有数据提出来，我们知道符号表中定义的变量可能是不全的，而且有些符号表中有，而程序中没有使用。交叉引用表中的数据是全的但    ’是没有注释，那我可以写个程序根据交叉引用表来修改符号表（符号表中有交叉引用中没有的删掉，交叉引用中有而符号表中没有的在符号表中加上）

‘下面是程序：

Sub Split_String()					'在使用此程序前，请先将符号表中的数据和交叉引用中的数据分别排好序

    Dim a
    Dim myChars(1 To 11)
    Dim k, n As Integer
    Dim s As String

    For i = 1 To [b65536].End(xlUp).Row			'这里是从第一行到有数据的最后一行

        a = Split(Cells(i, 1).Value, "(")		'根据"("分割字符串，因为交叉引用表中的第一列是这样的I 0.0 (QF