Vb.net Excel移动到下一行

嘿，我期待看到如何去移动我的电子表格中目前我在哪里。

我努力了：

Dim xlsApp As Excel.Application Dim xlsWB As Excel.Workbook Dim xlsSheet As Excel.Worksheet Dim xlsCell As Excel.Range xlsCell = xlsSheet.Range("A1", "A100") For Each oRowRange As Excel.Range In xlsCell.Rows For Each oCellRange As Excel.Range In oRowRange.Columns If colorRGB = "252, 213, 180" Then Debug.WriteLine(oCellRange.Text) oCellRange.Offset(0, 1).Select() Debug.WriteLine(oCellRange.Text) etc... End If Next Next 

在上面的例子中，它一直保持相同的文本：

BOB

BOB

当它真的应该是：

BOB

JON

所以任何帮助将是伟大的！

Answer 1

我认为你的问题是，你使用相同的行两次Debug.WriteLine(oCellRange.Text) 。 在第一个之后， oCellRange不会改变。 你正在使用，select一种。 你这样做。 Selection ，但不要使用Selection …这是一件好事 。 但是，只需调整第二行并删除.Select行：

  Debug.WriteLine(oCellRange.Text) Debug.WriteLine(oCellRange.Offset(0, 1).Text) 

编辑：或者，您可以用Set oCellRange = oCellRange.Offset(0,1)replace.Select行，并保留原来的第三行。 但是，我不build议这样做，并亲自保持.Offset()方法。