使用起始单元格地址和结束单元格地址从相同工作表获取范围

我对Excel VBA很新，我必须创build一个处理大量数据的macros。 数据的格式如下所示：

我正在写一个函数来获取范围，以便对于A列中的每个单元格（如AAAA），我需要得到范围B2：B4。 我写了一个扫描列A的函数，直到find一个非空的单元（startCell），然后从该单元中引用它，通过下面的操作获得第一个单元格B2：

Worksheets(sheetName).Cells(startCell.Row + 1, 2) countStart = startCell.Row + 1 

然后它运行一个循环来计算列B2中从B2开始的单元的数量（使用countStart作为行号），直到它遇到一个空单元并将计数存储在count countFinal中。 然后我想要获得之间的范围

 Worksheets(sheetName).Cells(startCell.Row + 1, 2) 

和

 Worksheets(sheetName).Cells(countFinal, 2) 

BBBB和CCCC的细胞也需要做相同的处理

我怎样才能做到这一点？

PS：我不能在这里分享代码，因为代码在我的办公室机器上，而我从我的家用机器发布。 但是，如果需要，我可以稍后再看看。

Answer 1

您需要使用以下语法结合起始和结束范围点：

 Range(StartingCell, EndingCell) 

这在你的情况下可能如下：

 Worksheets(sheetName).Range( _ Worksheets(sheetName).Cells(startCell.Row + 1, 2), _ Worksheets(sheetName).Cells(startCell.Row + 1, 2).End(XlDown))