在现有数据之间粘贴单元格
哈特曼
我有用于复制的代码-现有列之后的粘贴范围。有必要也能够在现有的列之间填充它。因此它将复制的范围粘贴到选定单元格之后的下一个右侧。这里的问题是，不可能通过使用“插入”来添加更多的列。因此，现有数据应以某种方式移至右侧。通过复制-粘贴？它是唯一的解决方案，以及如何在技术上实现？
因此，如果我选择合并的单元格H：I并点击ADD，则代码会将J：K和L：M移至右侧，并将复制的范围粘贴到最近J：K的位置。
我当前的ADD按钮代码是：
Sub CopyPasteTurbineOwnWork()
Application.ScreenUpdating = False
Dim StartRange As Range
Dim cello As Range
Set cello = Worksheets("Price calculation").Cells(13, Columns.Count)
Set StartRange = Worksheets("Price calculation").Range("D13")
StartRange.MergeArea.Copy
cello.End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteAll
StartRange.Offset(1, 0).Resize(16, 2).Copy
cello.End(xlToLeft).Offset(1, 0).PasteSpecial xlPasteAll
StartRange.Offset(17, 0).MergeArea.Copy
cello.End(xlToLeft).Offset(17, 0).PasteSpecial xlPasteAll
StartRange.Offset(18, 0).Resize(2, 2).Copy
cello.End(xlToLeft).Offset(18, 0).PasteSpecial xlPasteAll
StartRange.Offset(148, 0).MergeArea.Copy
cello.End(xlToLeft).Offset(148, 0).PasteSpecial xlPasteAll
StartRange.Offset(149, 0).Resize(5, 2).Copy
cello.End(xlToLeft).Offset(149, 0).PasteSpecial xlPasteAll
Set StartRange = Nothing
Set pasteSheet = Nothing
Set cello = Nothing
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
lu田
如您陈述的那样，您想在选择的右边插入整个列，但这并不像选择列那样容易，因为您要使用两对合并的列。但是，.Insert如果复制选择正确，则仍然可以逐列复制整个范围。即使您希望插入两个大型合并的单元格，只要它们与行的其余部分大小相同，insert也可以工作：
下面将调整复制区域的大小（从D13开始），以包括两列，以及所选区域下方的合并单元格的全部计数（加上D13的行）。然后它将复制整个区域并将其插入选择的右侧。只要此选择框的大小与您选择的合并单元格的大小相同，就可以在不移动文档其余部分的情况下插入此选择框：
Sub insert_column()
Range("D13").Resize((Selection.Offset(1, 0).MergeArea.Rows.Count) + 1, 2).Copy
Selection.Offset(0, 1).insert shift:=xlToRight
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
从现有向量创建配对值单元格数组
- 2
Excel宏-选择具有数据和格式的所有单元格作为表格
- 3
Excel将公式应用于现有单元格值，无需复制/粘贴
- 4
识别没有数组公式的单元格
- 5
使用Google脚本在单元格之间复制和粘贴数据
- 6
每个单元格中索引值和列名之间具有日期差的数据框
- 7
检查许多单元格是否有数据，如果发现则报告数据
- 8
筛选带有数组的pandas数据框中的单元格
- 9
Python返回带有2个值之间的时间数据的对应单元格
- 10
尽管数组中有数据，TableView仍未加载单元格
- 11
具有数据验证（下拉）的单元格的值为“未定义”。为什么？
- 12
在具有数据绑定的多列ListView中检索MouseEnter上的单元格值
- 13
仅复制/粘贴具有值的单元格
- 14
带有数据传递错误的自定义单元格序列-Swift
- 15
LibreOffice / Excel：如何在单个单元格内粘贴带有换行符/换行符的数据
- 16
Excel将复杂的公式应用于现有单元格值，而无需复制/粘贴
- 17
访问表格-如果单元格中有数据，如何仅显示字段和单元格值？
- 18
如果列中的单元格有数据，则复制并粘贴到同一行中的其他单元格
- 19
如何将后缀添加到具有现有数据的单元格范围
- 20
如何将单元格中的数据拆分为 Excel 上的现有列？
- 21
单元格内带有数字自动编号的现有句子
- 22
预先确定带有数据的单元格以发送电子邮件
- 23
将数字添加到已有数据的单元格
- 24
如何将新数据保存到现有单元格？
- 25
如何获取excel单元格下的所有数据
- 26
如何使用python将数据附加到现有excel表的特定单元格？
- 27
Excel VBA 根据单元格上方的值创建现有单元格的超链接
- 28
当特定单元格有数据时，如何锁定大部分行？
- 29
如何读取所有数据单元格并仅突出显示超过 10 个字符的单元格
我来说两句