如何在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