register313

¦^´_ 1# caichen3

1. Private Sub CommandButton3_Click()
   
2. If Selection.Row = 2 Then
   
3.    Selection.EntireColumn.Insert
   
4.    Selection.EntireColumn.Insert
   
5.    Selection.Resize(1, 2).Merge
   
6. ElseIf Selection.Row = 3 Then
   
7.    Selection.EntireColumn.Insert
   
8. End If
   
9. Range("A2").Value = Range("A2").Value + 1
   
10. End Sub

½Æ»s¥N½X

register313

¦^´_ 4# caichen3

1. Private Sub CommandButton3_Click()
   
2. If Selection.Row = 1 Then
   
3.    Selection.Resize(1, 6).EntireColumn.Insert
   
4.    Selection.Offset(1, 0).Resize(1, 2).Merge
   
5.    Selection.Offset(1, 2).Resize(1, 2).Merge
   
6.    Selection.Offset(1, 4).Resize(1, 2).Merge
   
7.    Selection.Resize(1, 6).Merge
   
8. End If
   
9. End Sub

½Æ»s¥N½X