Question

我正在使用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

Answer 1

你需要一个循环来检查它们，还有一个变量用于存储起始点的行号，然后在VBA中使用Range，你可以Copy在任何你想要的地方！

您需要知道循环列的最后一行的编号;像这样的东西：

lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

从特定字符到特定字符选择一系列单元格

1 个答案: