VBA练习

oyzjo

Private Sub CommandButton1_Click()
    With Worksheets("二维表")
        .Range("B2:B" & .Range("B65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) = Worksheets("观察表").Range("B2")
    End With
End Sub

2288liu

顶                       

raymond2012

太牛了