电子表格用EXCEL怎么把每行的数据都增加相同标题呢

1.用EXCEL怎么把每行的数据都增加相同标题呢

'用VBA，宏 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet2.Cells.ClearContents For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A")) For j = 1 To Application.WorksheetFunction.CountA(Sheet1.Range("" & i & ":" & i & "")) Sheet2.Cells((i - 2) * 3 + 1, j) = Sheet1.Cells(1, j) Sheet2.Cells((i - 2) * 3 + 2, j) = Sheet1.Cells(i, j) Next j Next i End Sub。