如何在Excel中复制行并将值从一个单元格复制到另一个单元格？
KGK
我如何使用VBA或使用条件语句在excel中将行重复3或4次，然后将值从一个单元格复制并粘贴到另一个单元格。
这就是数据的样子
这就是我想要的结果。
更新：在下面的代码中，我要复制合并到第col，176、177、178、179、180行，但效果很好，但是删除了1 col和176 col之间的所有列。
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
拉德克
打开VBA编辑器（Alt-F11）。创建新的VBA模块（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
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
vba excel：如何将字符从一个单元格复制到另一个单元格
- 2
如果行中的其他单元格与值匹配，则将单元格从图纸上复制到另一个单元格
- 3
需要将单元格值复制到html表中的另一个单元格
- 4
如何在MATLAB中将单元格从一个Excel文件复制到另一个Excel文件
- 5
如何在MATLAB中将单元格从一个Excel文件复制到另一个Excel文件
- 6
Google表格可以使用超链接从一个单元格跳转到另一个单元格并将数据复制到另一个单元格吗
- 7
VBA-将值从一个单元格复制到另一个偏移量单元格
- 8
如果单元格值更改，Excel将单元格值复制到另一个单元格
- 9
如果单元格值更改，Excel 将单元格值复制到另一个单元格
- 10
VBA查找匹配并将单元格复制到另一个
- 11
仅将某些单元格从一行复制到另一个工作表
- 12
使用vba将单元格的值复制到另一个单元格
- 13
将单元格值复制到另一个单元格，如果
- 14
然后从一个单元格中查找字符串中的文本，然后将值从对应的行复制到另一个单元格中
- 15
自动将一个单元格的颜色复制到另一个单元格
- 16
从一个单元格复制到另一个单元格的8202个以上字符时出错
- 17
将值从一个单元格复制到每行另一单元格，作为Google表格中的“值”
- 18
将文本从一个单元格复制到另一个单元格而不删除原始内容python
- 19
Excel：如果某个单元格不为空，则将行复制到另一个工作表
- 20
Excel根据第三个单元格的值将一个单元格的值复制到另一个单元格
- 21
Excel根据第三个单元格的值将一个单元格的值复制到另一个单元格
- 22
如何将一个工作表中的单元格复制到另一个工作表中，到正确的行
- 23
如何将条件格式单元格的颜色复制到另一个Excel文件
- 24
如何根据值excel VBA将多行复制到特定单元格中的另一个工作表
- 25
Excel VBA如何使用超链接将信息从一个单元格复制到工作表之间的另一个单元格
- 26
单击超链接后将单元格的文本复制到另一个单元格
- 27
单击超链接后将单元格的文本复制到另一个单元格
- 28
充满颜色时将单元格复制到另一个单元格
- 29
如果当前单元格为空并且同一行中的另一个单元格不是空的，则 Excel 函数将单元格值复制到上面。否则什么都不做
我来说两句