Formato di copia Excel

Mi chiedo se qualcuno possa aiutarmi con quanto segue. In un foglio di calcolo Excel, ho le seguenti.

Column A Column B Column C Header 1 detail detail detail detail Count Header 2 detail detail detail detail Count Grand Total 

C'è un modo per una persona completamente non tecnica di utilizzare i formati da Header 1 e Header 2 per creare Header 3 senza wherer inserire una row e manualmente farlo?

 Column A Column B Column C Header 1 detail detail detail detail Count Header 2 detail detail detail detail Count Header 3 detail detail detail detail Count Grand Total 

Grazie

Basta copiare le celle (tramite ctrl + C o tramite il menu di modifica) e usando Paste Special (disponibile con il tasto destro del mouse sulla cella di destinazione), verrà visualizzata una window di dialogo su ciò che si desidera copiare nelle nuove celle (valori, formule, formati, ecc.).

Questo è molto ruvido e pronto ma è un antipasto per dieci:

creare questa macro nella cartella di lavoro. Ogni volta che si esegue esso crea una nuova row e si mette in "Colonna X"

 Private m_intHeaderCount As Integer Sub InsertRow() Dim intRowToInsert As Integer m_intHeaderCount = m_intHeaderCount + 1 intRowToInsert = ((m_intHeaderCount - 1) * 3) + 1 Rows(CStr(intRowToInsert) & ":" & CStr(intRowToInsert)).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A" & CStr(intRowToInsert + 1)).Select ActiveCell.FormulaR1C1 = "Column " & CStr(m_intHeaderCount) Range("A1").Select End Sub Sub InsertRow () Private m_intHeaderCount As Integer Sub InsertRow() Dim intRowToInsert As Integer m_intHeaderCount = m_intHeaderCount + 1 intRowToInsert = ((m_intHeaderCount - 1) * 3) + 1 Rows(CStr(intRowToInsert) & ":" & CStr(intRowToInsert)).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A" & CStr(intRowToInsert + 1)).Select ActiveCell.FormulaR1C1 = "Column " & CStr(m_intHeaderCount) Range("A1").Select End Sub Selezione.Inserire Shift: = xlDown, CopyOrigin: = xlFormatFromLeftOrAbove Private m_intHeaderCount As Integer Sub InsertRow() Dim intRowToInsert As Integer m_intHeaderCount = m_intHeaderCount + 1 intRowToInsert = ((m_intHeaderCount - 1) * 3) + 1 Rows(CStr(intRowToInsert) & ":" & CStr(intRowToInsert)).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A" & CStr(intRowToInsert + 1)).Select ActiveCell.FormulaR1C1 = "Column " & CStr(m_intHeaderCount) Range("A1").Select End Sub