以下是选择从活动单元格到最后一个具有数据的单元格中的单元格的VBA代码示例：

Sub SelectCellsInRow() Dim lastCol As Integer Dim activeCell As Range Dim lastDataCell As Range

Set activeCell = ActiveCell
lastCol = activeCell.SpecialCells(xlLastCell).Column

// 找到最后一个数据单元格
Set lastDataCell = activeCell.Offset(0, lastCol - activeCell.Column).End(xlToLeft)
If lastDataCell.Value = "" Then
    Set lastDataCell = lastDataCell.Offset(0, -1)
End If

// 选择从活动单元格到最后一个数据单元格中的单元格
Range(activeCell, lastDataCell).Select

End Sub

在执行上述代码后，将选择从当前活动单元格到该行最后一个具有数据的单元格中的所有单元格，同时跳过其中的空单元格。