­ã´£³¡ªL

Sub test()
Dim i&, xR As Range, T$
For i = 9 To [FMC!A65536].End(xlUp).Row
¡@¡@Set xR = [FMC!A1].Cells(i, 1)
¡@¡@If xR = "" Or xR = T Then GoTo 101
¡@¡@[FMC!1:1].Copy
¡@¡@xR.Insert Shift:=xlDown
¡@¡@xR(0, 2) = "Product"
¡@¡@xR(0, 4) = xR
¡@¡@T = xR:  i = i + 1
101: Next
[FMC!A:A].EntireColumn.Delete
End Sub

­ã´£³¡ªL

¦^´_ 4# v03586

1. Sub test()
   
2. Dim i&, xR As Range, T$
   
3. For i = 9 To [FMC!A65536].End(xlUp).Row
   
4.     Set xR = [FMC!A1].Cells(i, 1)
   
5.     If xR = "" Or xR = T Then GoTo 101
   
6.     [FMC!1:1].Copy
   
7.     xR.Insert Shift:=xlDown
   
8.     xR(0, 2) = "Product"
   
9.     xR(0, 4) = xR
   
10.     xR(0).RowHeight = 24
    
11.     xR(0).Resize(1, 26).Interior.Color = vbYellow
    
12.     T = xR:  i = i + 1
    
13. 101: Next
    
14. [FMC!A:A].EntireColumn.Delete
    
15. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 7# v03586


xR(0).FONT.size = 20

¨S¥Î¹L»yªk, ¥Î¿ý»s¨ú±o!