2012-12-13 148 views

回答

0
Sub test() 
'put something in column 3 of all selected rows 
    Dim r As Range 
    For Each r In Selection.Rows 
     Cells(r.Row, 3) = "test" 
    Next r 
End Sub 
相關問題