我正在使用VBA for Excel(Macro),我有一系列需要重新安排的数据。我的目标是我需要从每个人中选择一系列细胞!直到下一个!并将其粘贴在另一张纸上。每个选择都将粘贴在自己的列上。以下是我的数据示例:
!
vpdn-group LNS_LEGACY_INFOCOM
接受-拨入
协议l2tp
虚拟模板2
终止 - 来自主机名DSL_INFOCOM_L2TP
lcp重新协商不匹配
l2tp隧道密码7 1543595F507F7D73706A65
!
vpdn-group MGISWUP
接受-拨入
协议l2tp
虚拟模板3291
终止 - 来自主机名MGISWUP
lcp重新协商不匹配
l2tp隧道密码7 10590C0B0A161F
!
vpdn-group PRULIFE
接受-拨入
协议l2tp
虚拟模板1024
终止 - 来自主机名prulifeuk
lcp重新协商不匹配
l2tp tunnel password 7 120E00051D0A01
注意:1个选择
vpdn-group LNS_LEGACY_INFOCOM
接受-拨入
协议l2tp
虚拟模板2
终止 - 来自主机名DSL_INFOCOM_L2TP
lcp重新协商不匹配
l2tp隧道密码7 1543595F507F7D73706A65
答案 0 :(得分:0)
你需要一个循环来检查它们,还有一个变量用于存储起始点的行号,然后在VBA中使用Range
,你可以Copy
在任何你想要的地方!
您需要知道循环列的最后一行的编号;像这样的东西:
lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row