VBAのWithブロックの1つ以上のセル範囲

Question

簡単な質問。私は2つの異なる列にデータを変換する必要があり、使用されるコードは両方の列で同じになるので、コードを2回書くのではなく、単に「一緒に追加する」ことができますか？ここで

が、私は別のSO教祖の助けを借りて書いたものです：

With .Cells(i, 3) And .Cells(i, 5) 
     .HorizontalAlignment = xlRight 
     Select Case .Value 
      Case Is > 1000000 
       .Value = .Value/1000000 & "Mb" 
      Case Is > 1000 
       .Value = .Value/1000 & "kb" 
      Case Is > 1 
       .Value = .Value & "b" 
      Case Else 
       .Value = 0 
     End Select 
    End With 

私はAnd .Cells(i,5)一部を追加しましたが、私は、オブジェクト参照エラーを取得していますか？ （代わりにwSの良いワークシートオブジェクトで）あなたのメインの手順でこれを入れて

Answer 1

：

With wS 
    Alignment_And_Bytes .Cells(i, 3) 
    Alignment_And_Bytes .Cells(i, 5) 
End With 

そして、あなたは（たとえば、あなたのモジュールの下部にある）を再利用することができますルーチンを;）

Public Sub Alignment_And_Bytes(aCell As Range) 
    If aCell.Cells.Count > 1 Then Exit Sub 
    With aCell 
     .HorizontalAlignment = xlRight 
     Select Case .Value 
      Case Is > 1000000 
       .Value = .Value/1000000 & "Mb" 
      Case Is > 1000 
       .Value = .Value/1000 & "kb" 
      Case Is > 1 
       .Value = .Value & "b" 
      Case Else 
       .Value = 0 
     End Select 
    End With 
End Sub