软件设计,数据处理。请联系QQ:1466214431;微信:abcuc_com
Word宏设计遍历选择列的数据
使用的总行数:rsCt = ActiveSheet.UsedRange.Rows.Count
选择的列:slnc = Selection.Column
循环遍历输出:
For r = 1 To rsCt
Debug.Print Cells(r, slnc)
Next
软件设计,数据处理。请联系QQ:1466214431;微信:abcuc_com
使用的总行数:rsCt = ActiveSheet.UsedRange.Rows.Count
选择的列:slnc = Selection.Column
循环遍历输出:
For r = 1 To rsCt
Debug.Print Cells(r, slnc)
Next