使用VBA识别特定范围内的第一个空列

Question

我有以下Excel电子表格：

       A                 B         C         D        E          F         G        H
1                     2019-03   2019-04   2019-05   2019-06   2019-07   Total
2    
3   Revenue             500       600                                  1.100
4   COGS                -40       -30                                    -70
5   Gross Profit        460       570        0        0        0       1.030
6   
7   OPEX                -10       -12                                    -22
8   Interests           -20       -50                                    -70
9
8   EBT                 430       508        0        0        0         938

公式：

Row 5 = SUMS of Row 3 and Row 4
Row 8 = SUMS of Row 5, Row 7 and Row 8
Column G = SUMS of Columns B to H

该电子表格显示了公司每月的表现。

每次达到新的月份时，我都希望将上个月的值复制到新的月份。 因此，我需要确定第一个空列。 我尝试从此处使用VBA解决方案：

Sub Last_Used_Column()
c = Sheet1.Cells(3, Columns.Count).End(xlToLeft).Column
MsgBox c
End Sub

现在的问题是，与这个问题相反，我有一个新的G列 ，它显示了总体性能。 因此，使用上面的代码，我将得到Colum H作为结果，但我想将D列标识为第一个空列。

我认为一种解决方案可能是将VBA查找第一个空列的范围限制为Columns B:F 。

我如何更改上面的代码才能实现此目的？

Answer 1

这将为您提供第3行中最后使用的col，然后为空白单元格+1

Sheet1.Rows("3").CurrentRegion.Columns.Count

Answer 2

用这个

Dim c As Long
c = Sheet1.Cells(3, Sheet1.Columns.Count).End(xlToLeft).Offset(ColumnOffset:=-1).End(xlToLeft).Column 

它使用这个

c = Sheet1.Cells(3, Sheet1.Columns.Count).End(xlToLeft) 

查找最后使用的列（在您的示例G中）。 然后向左移一列

.Offset(ColumnOffset:=-1)

并再次找到最后使用的列（从此处开始）

.End(xlToLeft).Column

最后，您可以使用c + 1来获得最后使用的列右边的空列。

---

注意：如果没有空列，则c将为1因此您可以轻松地对此进行测试：

If c = 1 Then
    MsgBox "No empty columns found", vbCritical
    Exit Sub
End If