excel中使用vba获得当前表格列最后个非空单元格

在Excel中，我们经常需要使用函数和公式来获取表格中的数据，但是有时候我们可能需要更高级的功能，例如获取当前表格列最后个非空单元格的值。在这种情况下，我们可以使用VBA代码来实现。

VBA是Visual Basic for Applications的缩写，它是一种用于编写Excel宏的编程语言。使用VBA，我们可以编写自定义函数，用于执行特定任务，并且可以使用其他Excel功能，例如数据透视表和数据分析工具。

下面是一个简单的VBA代码，用于获取当前表格列最后个非空单元格的值：

```

Sub GetLastNonEmptyCell()

Dim ws As Worksheet

Dim lastRow As Long

Dim lastColumn As Long

'Set the worksheet and range of cells to use

Set ws = ThisWorkbook.Worksheets("Sheet1")

'Get the last row and column of the worksheet

lastRow = ws.Cells(ws.Rows.Count, lastColumn).End(xlUp).Row

lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

'Find the last non-empty cell in the specified column

For i = 2 To lastColumn

If ws.Cells(i, lastColumn).Value = "" Then

lastRow = i

Exit For

End If

Next i

'Select the last non-empty cell

ws.Cells(lastRow, lastColumn).Value

End Sub

```

这个VBA代码首先使用`Set ws = ThisWorkbook.Worksheets("Sheet1")`来设置要使用的Worksheet。然后，它使用`ws.Cells(ws.Rows.Count, lastColumn).End(xlUp).Row`来获取指定列中最后 row 的行数。接下来，它使用`ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column`来获取指定列中最后列的列数。最后，它使用`ws.Cells(lastRow, lastColumn).Value`来获取指定列中最后非空单元格的值。

这个VBA代码只是一个简单的示例，我们可以根据需要进行修改和扩展。例如，我们可以使用该代码来获取当前工作表中所有单元格的值，或者将代码与其他Excel功能相结合，以获得更高级的功能。

总结起来，VBA在Excel中是一种非常有用的编程语言，可以帮助我们实现许多高级功能，例如获取当前表格列最后个非空单元格的值。