他山之石——使用Excel VBA定位特殊单元格（Finding special cells in Excel VBA）

实际工作中，会碰到各种实际的问题。不会怎么办？可以将一个复杂的问题分解成一个个小问题，逐个解决，美称“divide and conquer”（分而治之）。这里整理的，其实就是“一个个小问题”。记不住没关系，只要你能搜到答案，也算你赢。

Option Explicit


'1 已使用的单元格区域

  Sub d1()
  
    Sheets("sheet2").UsedRange.Select
    
    'wb.Sheets(1).Range("a1:a10").Copy Range("i1")
    
  End Sub


'2 某单元格所在的单元格区域

   Sub d2()
    
      Range("b8").CurrentRegion.Select
    
   End Sub
   
   
'3 两个单元格区域共同的区域

    Sub d3()
     
    Intersect(Columns("b:c"), Rows("3:5")).Select
  
    End Sub
   
'4 调用定位条件选取特殊单元格
  
    Sub d4()
  
       Range("A1:A6").SpecialCells(xlCellTypeBlanks).Select
       
    End Sub
    
'5 端点单元格
 
   Sub d5()
   
     Range("a65536").End(xlUp).Offset(1, 0) = 1000
     
   End Sub
  
   Sub d6()
   
     Range(Range("b6"), Range("b6").End(xlToRight)).Select
     
   End Sub
    

  

Option Explicit

Sub t()
 Dim x As Integer
  For x = 2 To 6
    If Cells(x, 2) > 0 Then
      Cells(x, "N") = "1月"
    Else
      Cells(x, "N") = Range("b" & x).End(xlToRight).Column - 1 & "月"
    End If
  Next x
  
End Sub