3

我有一个宏可以将一张表的数据准确地复制到另一张表中。

Sub QuickViewRegMgmt()

    ("Reg Management").Select
    Cells.Select
    Selection.Copy
    Sheets("Quick View Reg Mgmt").Select
    Cells.Select
    ActiveSheet.Paste

End Sub

我希望这个宏也可以转到 C 列中的最后一个非空白单元格(或第一个空白,我真的不在乎这两种方式)。我尝试了简单的结束/偏移代码,例如

Range("A1").End(xldown).Offset(1,0).Select 

然而,我的问题是直接复制宏也复制了基础公式,对于 C 列来说,它是一个 IF 公式。因此,列中的任何单元格实际上都不是空的,而是它们都有一个 IF 公式,导致真/假值(分别为“”或 VLOOKUP)。

=IF(VLOOKUP('Reg Management'!$Y260,'Reg Guidance'!$A:$V,3,FALSE)=0,"",VLOOKUP('Reg Management'!$Y260,'Reg Guidance'!$A:$V,3,FALSE))

这意味着结束/偏移代码使用公式 (C1000) 转到列中的最后一个单元格,而不是转到第一个值为 "" 的单元格(当前为 C260)。

我可以在这个宏中添加什么代码来选择第一个包含 IF 公式的单元格,从而导致值为 "" ---- 其外观为空白?

4

1 回答 1

0

在尝试对SpecialCells(), 或 usingFind()或其他我无法理解的东西感兴趣之后......所以这是一种相当“肮脏”的方法:

Sub test()
Dim lastRow As Long, lastFormulaRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row

Dim i As Long
For i = lastRow To 1 Step -1
    If Cells(i, 1).Formula <> "" And Cells(i, 1).Value = "" Then
        lastFormulaRow = i
        Exit For
    End If
Next i

End Sub

Edit2:这是一个使用.SpecialCells(). 当然,我认为我们可以进一步减少它,我更喜欢它:

Sub lastRow()
Dim tempLastRow As Long
tempLastRow = Range("C" & Rows.Count).End(xlUp).Row 

Dim lastRow As Range
Set lastRow = Columns(3).SpecialCells(xlCellTypeFormulas).Find(What:="", LookIn:=xlValues, LookAt:=xlWhole, searchdirection:=xlPrevious, after:=Range("C" & tempLastRow))
Debug.Print lastRow.Row
End Sub

在此处输入图像描述

10作为行返回。

编辑:确保在之前添加工作表引用Range()Cells()获取最后一行。否则,它将查看您的活动工作表以获取信息。

于 2017-08-09T22:20:57.910 回答