|
Sub hzdy() Dim Arr, Myr% Arr = Sheets('信息錄入').Range('c4:c8') Myr = Sheets('信息匯總').[a65536].End(xlUp).Row + 1 Sheets('信息匯總').Cells(Myr, 1).Resize(1, 5) = Application.Transpose(Arr) Sheets('信息錄入').Range('c4:c8') = '' Sheets('信息匯總').Activate ActiveSheet.PrintPreview End Sub |
|
|