从特定字符中选择单元格范围，直到特定字符

Question

我正在使用VBA的Excel (宏)，我有一系列的数据，我需要重新安排。我的目标是，我需要选择一个范围的细胞从每一个！直到下一个！然后粘贴到另一张纸上。每个选择都将粘贴在自己的列上。以下是我的数据样本：

好了！

vpdn-群LNS_LEGACY_INFOCOM

接受拨号

protocol l2tp

virtual-template 2

从主机名DSL_INFOCOM_L2TP终止

lcp重新协商失配

l2tp隧道密码7 1543595F507F7D73706A65

好了！

vpdn-群MGISWUP

接受拨号

protocol l2tp

virtual-template 3291

终止-从主机名MGISWUP

lcp重新协商失配

l2tp隧道密码710590C0B0A161F

好了！

vpdn-群预测

接受拨号

protocol l2tp

virtual-template 1024

终止-从主机名prulifeuk

lcp重新协商失配

l2tp隧道密码7120E00051D0A01

注意:1选择是

vpdn-群LNS_LEGACY_INFOCOM

接受拨号

protocol l2tp

virtual-template 2

从主机名DSL_INFOCOM_L2TP终止

lcp重新协商失配

l2tp隧道密码7 1543595F507F7D73706A65

Answer 1

您需要一个循环来检查行，并需要一个变量来存储起始点的行数，然后通过在VBA中使用Range，您可以在任何您想要的地方使用Copy！

您需要知道循环中列的最后一行的编号；如下所示：

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