Private Sub Worksheet_Activate()
For i = 1 To Sheets.Count
Sheet10.Cells(i, 1) = Sheets(i).Cells(2, 2)
Next i
End Sub

這樣如何
照你要求的欄位
我試了不管數值或文字都可行