Question

我目前正在尝试在Excel上创建反馈表，我对VBA完全不熟悉。

我有一个填充多年（2014年...... 2015年等）的专栏，从A4格（表1）开始一直持续到包含“Grand Total”的单元格

我想将这一年中的“Grand Total”单元格中的所有年份复制到第2页，记住年份值和行位置不断变化...我还想要新的列表第2页不包括表1中年份之间存在的空行。

任何提示？

干杯，马特

Answer 1

尝试一下：

Sub getInfo()
Dim counter As Integer, lastRow As Integer
counter = 1
lastRow = Cells.Find(What:="Grand Total", After:=[A4], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For i = 4 To lastRow
    If Cells(counter, 1).Value < lastRow Then
        counter = counter + 1
    End If
Next i

Range("A4:A" & counter + 1).Copy Destination:=Sheets("Sheet2").Columns(1)
Sheets("Sheet2").Activate
For i = 1 To lastRow
    If Cells(i, 1).Value = "" Then
        Cells(i, 1).Delete
    End If
Next i
End Sub

VBA将列中的年份列表复制到关键字

1 个答案: