如何在Excel中複製行並將值從一個單元格複製到另一個單元格？

Question

如何在Excel中使用VBA或使用條件語句複製行3或4次，然後將值從一個單元複製並粘貼到另一個單元。

這是數據看起來的樣子

，這我怎麼想落得。

更新：下面我想複製合併到行代碼，列沒有176，177,178，179，180它的偉大工程，但除去1列和176之間的山坳所有列。

Sub SortMacro() 
Dim SourceSheet As Worksheet 
Dim OutSheet As Worksheet 

Set SourceSheet = ActiveSheet 
Set OutSheet = Sheets.Add 

With SourceSheet 
Out_i = 1 
For r = 1 To .Cells(Rows.Count, 176).End(xlUp).Row 
    For i = 176 To 180  'or For each i in Array(3,4,5) 
     OutSheet.Cells(Out_i, 1) = .Cells(r, 1) 
     OutSheet.Cells(Out_i, 176) = .Cells(r, i) 
     Out_i = Out_i + 1 
    Next 
Next 
End With 
End Sub 

Answer 1

打開VBA edior（ALT-F11）。創建新的VBA模塊（rightclik到VBA項目，插入，模塊）。將此代碼複製到新的模塊。運行代碼（選擇包含源數據的工作表，然後在任意位置點擊進入VBA代碼文本並按F5鍵）。

Sub SortMacro() 
Dim SourceSheet As Worksheet 
Dim OutSheet As Worksheet 

Set SourceSheet = ActiveSheet 
Set OutSheet = Sheets.Add 

With SourceSheet 
    Out_i = 1 
    For r = 1 To .Cells(Rows.Count, 1).End(xlUp).Row 
     For i = 3 To 5  'or For each i in Array(3,4,5) 
      OutSheet.Cells(Out_i, 1) = .Cells(r, 1) 
      OutSheet.Cells(Out_i, 2) = .Cells(r, i) 
      Out_i = Out_i + 1 
     Next 
    Next 
End With 
End Sub 

Answer 2

MyRange.Offset(RowOffset, ColumnOffset).Value = MyRange.Value