Vb.net Excel이 다음 행으로 이동

Question

안녕하세요 저는 현재 내 스프레드 시트에있는 행을 1 행 이동하는 방법을 알아 보려고합니다.

나는 시도했다 : 위의 예에서

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입니다. .Select을 수행하지만 Selection을 사용하지 마십시오 ... good thing입니다. 그러나 단지 그 두 번째 줄을 조정할와 .Select 라인 제거 :

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

편집 : 또는 Set oCellRange = oCellRange.Offset(0,1)로 .Select 라인을 대체 할 수와 같이 그 세 번째 줄을 둡니다. 그러나, 나는 이것을 제안하지 않고 개인적으로 .Offset() 방법을 유지할 것이다.