Viết Code để thêm dòng và thêm công thức cho hàng loạt sheet (1 người xem)

[lanp900]

Kính chào Diễn đàn
Tôi cần Diễn đàn giúp đỡ gấp việc thêm 1 dòng và công thức vào ô D3, C3 cho hàng loạt sheets trong 1 file excel. Tôi xin gửi file mẫu để Diễn đàn xem xét giúp
Trân trọng cám ơn!

 

[hungpecc1]

Kính chào Diễn đàn
Tôi cần Diễn đàn giúp đỡ gấp việc thêm 1 dòng và công thức vào ô D3, C3 cho hàng loạt sheets trong 1 file excel. Tôi xin gửi file mẫu để Diễn đàn xem xét giúp
Trân trọng cám ơn!

không hiểu ý bạn lắm :
Thử code này vầy xem :

Sub test()    
Dim sh As Worksheet  
      For Each sh In Worksheets      
           If sh.Name <> Sheets(1).Name Then          
               Sheets(1).Rows("2:2").Copy            
               sh.Rows("2:2").Insert Shift:=xlDown            
               Sheets(1).Range("C3:D3").Copy sh.Range("C3:D3")      
           End If    
      Next
End Sub

 

[lanp900]

Tốt quá cám ơn. !Ngày càng trân trọng diễn đàn hơn!!!