1.  浮动按钮  by:Qee用

http://www.excelpx.com/dispbbs.asp?boardid=5&id=13551&star=1#63383
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  [Button].Top = Target.Top
End Sub
 
Sub Fill10()
‘自动填充十行
 
  Dim rg As Range
  Application.EnableEvents = False
  For Each rg In Selection
    rg.Resize(11, 1) = rg
  Next rg
  Application.EnableEvents = True
End Sub