同じID番号を持つすべての行を選択してから反復する - VBA

Question

ExcelのIDのソートされたリストがあります。私は同じIDを持つすべての行をつかみたい、そして私はそれらを操作するでしょう。

Sub Selectingabox() 
Dim I As Integer 
Dim N As Integer 
'Defining 
I = 1 
N = 1 
'Initializing 
While I < 3000 
'If I have more than 3k rows I'm in serious trouble anyways 
If Range("A" & I).Select = Range("A" & I + 1).Select Then 
I = I + 1 
Else: Range("A" & N, "AJ" & I).Select 
'Lots of stuff manipulating the data range we just selected 
N = I + 1 
'The new top row 
I = I + 1 
'The new bottom row 


Wend 
End Sub 

非常にうまくいきません。私にはうんざりですが、私はなぜ分かりません。コードが動作するかどうかも分かりません！

Answer 1

物事のカップル解決されること：自分の価値観限りではなく整数を暗く

• を、あなたが取得することはできませんので、行のエラー32k
• コードをより効率的にするためにwhileループではなくFORループを使用してください。
• 代わりに3000を使用すると、VBAを使用してf最後の行を自動的に使用するCells(Rows.Count, "A").End(xlUp).Row

• コードに.Selectを使用することはお勧めできません。何を操作しようとしていますか？

  Sub Selectingabox() 
  Dim I As Long 
  Dim N As Long 
  Dim lastrow As Long 
  
  lastrow = Cells(Rows.Count, "A").End(xlUp).Row 
  N = 1 
  
  For I = 1 To lastrow 
      If I = lastrow Then 
       If Range("A" & I).Value <> Range("A" & I - 1).Value Then 
       Range("A" & N & ":AJ" & I).Select 
       N = I + 1 
       End If 
      Else 
       If Range("A" & I).Value <> Range("A" & I + 1).Value Then 
        Range("A" & N & ":AJ" & I).Select 
       'Lots of stuff manipulating the data range we just selected 
       N = I + 1 
       End If 
      End If 
  Next I 
  End Sub 
  

Answer 2

あなたのコードにEnd Ifを追加 - コンパイルエラーに

Sub Selectingabox() 
Dim I As Integer 
Dim N As Integer 
'Defining 
I = 1 
N = 1 
'Initializing 
While I < 3000 
'If I have more than 3k rows I'm in serious trouble anyways 
If Range("A" & I).Select = Range("A" & I + 1).Select Then 
I = I + 1 
Else: Range("A" & N, "AJ" & I).Select 
'Lots of stuff manipulating the data range we just selected 
N = I + 1 
'The new top row 
I = I + 1 
'The new bottom row 
End If ' add this here 

Wend 
End Sub