Question

我有一个Excel工作表，其中包含许多可变列的信息。该信息需要转到第二页。该信息也是可变的，需要进入其他工作表的适当列中。一旦通过该列，它需要转到下一行并重新开始。行数也可变..即 AN栏可能包含：玻璃的总计量，询问规格问题或项目类型。如果该列包含玻璃的总计量，则需要转到第二张表的第21列，如果要向第27列询问规格问题，等等。该列循环将需要在数据结束之前停止2列

我有一个if语句，以便它偏移到适当的列（每次都使它到行的开头）。我已经对行进行计数，因此它停止了，但是我正在努力找出如何使它进入下一行并在正确的位置开始。我要复制的信息要到第20列才开始

Dim lastRow As Long

lastRow = Sheets("Leadbank").Range("a" & Rows.Count).End(xlUp).Row

Do Until ActiveCell.Row = lastRow + 1



Sheets("Leadbank").Select

If ActiveCell.Value Like "" Then
 ActiveCell.Offset(0, 2).Select

 Sheets("Results").Select
ActiveCell.Offset(1, 0).Select

If ActiveCell.Value = "" Then
ActiveCell.Offset(1, 0).Select


End If
 End If

If ActiveCell.Value Like "Total Meterage of Glass" Then
Selection.Copy
Sheets("Results").Select
ActiveCell.Offset(0, 21).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("a" & ActiveCell.Row).Select

End If

If ActiveCell.Value Like "Stage of Project" Then
Selection.Copy
Sheets("Results").Select
ActiveCell.Offset(0, 22).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         Range("a" & ActiveCell.Row).Select
End If

Sheets("Leadbank").Select
'Selection.End(xlUp).Select
If ActiveCell.End(xlUp).Value Like "" Then
    Range("a" & ActiveCell.Row).Select
ActiveCell.Offset(1, 50).Select

End If

Sheets("Leadbank").Select
 ActiveCell.Offset(0, 2).Select



Loop

End Sub

我需要将信息与正确的客户信息相对应地转移到第二个工作表中。我认为我应该能够使用某种形式的查找来执行此操作。我只是无法让它循环并将信息放在正确的列中

标题行符合特定条件后，如何沿着列创建循环，然后循环到下一行

0 个答案: