Excel-VBA：不同Sheet间的列、行复制

最新推荐文章于 2023-04-16 21:49:42 发布
最新推荐文章于 2023-04-16 21:49:42 发布
阅读量1w 收藏 25
点赞数 2
文章标签： 行 列 复制 Excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jyh_jack/article/details/83822015
版权 
'Sheet1中先在第3列加入一个空列，格式参照右侧，参照左侧用xlFormatFromLeftOrAbove
Sheet1.Columns(3).Insert , CopyOrigin:=xlFormatFromRightOrBelow

'将Sheet2中的第3列复制到Sheet1中第3列
Sheet2.Columns(3).Copy Destination:=Sheet1.Columns(3)

'如果要进行行的复制，将Columns变为Rows

'如果要多列复制，可以参考下面的代码
Sheet1.Columns("C:D").Insert , CopyOrigin:=xlFormatFromRightOrBelow
Sheet2.Columns("C:D").Copy Destination:=Sheet1.Columns("C:D")

 

小鸿叔
关注
  • 2
    点赞
  • 踩
  • 25
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
[day 1]用VBA实现最简单的EXCEL复制数据
yohann96的博客
04-16 1691
跟着文心一言学VBA。
小菜鸡的VBA学习经历及基本操作（一）——复制数据
小泰坦的博客
07-26 1995
python没学会，意外学会了VBA，这个小经验，将慢慢来分享，大佬就不用看了~省下时间去看看天，看看地，看看可爱的妹子和美食~
20180519 - VBA：在excel中实现不同sheet之间的数据重组
System.out.print(“Hello World!”);
05-29 809
1. 选择待操作的工作表，建立sheet对应的变量 定义一个Worksheet工作表对象WS1: Dim WS1 As Worksheet 把sheet“名单”赋值给指定的变量WS1: Set WS1 ＝ Worksheets("名单") 或者，通过工作表出现在工作薄中的顺序从左到右，依次用1、2、3.……来引用（“名单”为sheet1）: Set WS1 ＝ Worksheet...
Excel中使用VBA间隔抽取某列到另一列
u013238941的专栏
12-27 1241
Sub d() Dim i As Long Dim r As Long i = 2 r = 2 Do While r <= Sheet2.Rows.Count 'Range("K1").EntireColumn.Cells(i, 1).Value = Range("F2").EntireColumn.Cells(r, 1).Value Range("L1").EntireColumn.Cells(i, 1).V
VBA值列选取与复制，赋值
weixin_33861800的博客
07-31 1120
‘从活动单元格向上12行到向上1行的总和 ActiveCell.FormulaR1C1=”SUM(R[-12])C:R[-1]C” ‘引用第C-D列和第F-G列 Range(“B2:D6”)     ‘引用B2-D6的单元格 同Range(“B2”,”D6”) ,Rangge(Cells(2,2),Cells(6,4)) ‘引用第2行3列 Cells(2,3) 或Cells(2,”C...
利用VB在Excel中复制插入行
congratution的专栏
08-24 5186
以复制5到7行的内容，插入到第8行中为例： //选择需要复制的行：  xlsSheet.Rows("5:7").Select xlsSheet.Range("B5").Activate Selection.Copy //选择需要插入的行 xlsSheet.Rows("
Excel-VBA应用：循环将多个工作表另存为PDF的宏代码
最新发布
06-25
在Excel中，VBA（Visual Basic for Applications）是一种强大的编程工具，可以让我们自动化许多重复性的任务，例如在本例中的“Excel-VBA应用：循环将多个工作表另存为PDF的宏代码”。这个宏功能允许用户批量将工作...
Excel-VBA宏编程实例源代码-拆分sheet.zip
12-13
在这个"Excel-VBA宏编程实例源代码-拆分sheet.zip"中，包含的源代码示例正是关于如何利用VBA宏来拆分一个工作簿中的多个工作表。下面我们将详细探讨这个主题，以及涉及的相关知识点。 首先，我们需要理解VBA宏的...
Excel-VBA宏编程实例源代码-合并sheet.zip
12-14
在“Excel-VBA宏编程实例源代码-合并sheet.zip”这个压缩包中，包含了一个具体的VBA宏示例，用于合并多个工作表到一个单一的工作表中。 在Excel中，如果需要将多个包含相同结构的工作表数据整合到一个工作表上，...
Excel-VBA宏编程实例源代码-复制文档.zip
12-13
本压缩包"Excel-VBA宏编程实例源代码-复制文档.zip"包含了一个名为"复制文档.xlsm"的文件，这是一款使用VBA宏实现的Excel应用实例，主要用于演示如何通过编程方式复制Excel文档。 在"复制文档.xlsm"中，我们可以...
Excel-VBA实用技巧范例-筛选数据.zip
03-18
在Excel中，VBA（Visual Basic for Applications）是一种强大的宏语言编程工具，它允许用户自定义功能、自动化任务，极大地提升了办公效率。本压缩包"Excel-VBA实用技巧范例-筛选数据.zip"包含了关于使用VBA进行数据...
VBA行拷贝
Ctrain的专栏
05-05 6890
Sub 拷贝信息()Dim workbookTmp As Workbook Dim worksheetTmp As Worksheet Dim rangTmp As Range Dim i% Dim j% Dim newI%'当前工作表格可以使用ThisWorkbook '也可以 Debug.Print ThisWorkbook.Name Debug.Print ActiveWorkbook.Nam
excel vba复制黏贴_如何在Excel VBA中复制行
cumao2792的博客
09-15 9148
excel vba复制黏贴 Using VBA to program Excel isn't as popular as it once was. However, there are still plenty of programmers who prefer it when working with Excel. If you are one of those people, this art...
VBA--遍历所有工作表，获取所有行和列，复制粘贴为数值
STR_Liang的博客
03-03 9270
Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long '封装延时函数 Sub delay(T As Long) Dim time1 As Long time1 = timeGetTime Do DoEvents Loop While timeGetTi...
用VFP实现EXCEL不同文件间工作表的复制最终解决方案
feiyafei2008的专栏
09-28 3815
今天查阅了很多资料，试验了好多方法，搞了一个下午，终于搞定，不敢私藏，与大家分享。正确方法：m.err=.f.on error m.err=.t.eole=create("excel.application")*eloe1=create("excel.application")eole.visible=.t.IF m.err=.t. messagebox( "访问Execl失败！请检查
VBA 复制一个EXCEL文件某列至另一个文件
Check_Const的博客
11-28 6026
对应提问 VBA怎么把工作簿A中的第N列，复制到工作簿B中的第N列。 https://ask.csdn.net/questions/7846408/53999954?spm=1001.2014.3001.5501
[day 2]用VBA实现复制EXCEL数据到另一个EXCEL
热门推荐
yohann96的博客
04-16 1万+
这段代码将打开一个名为“小时”的文件夹，并将其中的“test”文件夹中的“1.xlsx”文件复制到“test”文件夹中的“2.xlsx”文件中。请注意，此代码假定“test”文件夹中的所有文件都具有相同的名称和格式。如果文件名或格式不同，则需要相应地更改代码。（小文同学的出的代码跑不动，简单删改了一下。然后，它将保存合并后的文件。#跟着文心一言学VBA。
Excel - VBA的隔行拷贝功能
guoqx的专栏
08-21 2908
通常情况下，Cell1和Cell2是两个最小单元格，分别代表Range的左上角和右下角，上面的例子使用的是Selection来作为参数。我们看到，这个操作是固定位置的，我们将位置改成当前选中的位置，再指定合适的大小，就能完成自动拷贝。我们看到有5个Selection对象，但前面的库是不同的，我们上面代码使用的其中一个库的对象。我们看到是Excel.Global的成员，实际就是Excel.Application的成员。这样，选择某个单元，然后运行这个宏，就会把连着的3个单元格内容，拷贝到下一行。
openpyxl使用sheet.rows或sheet.columns报TypeError: 'generator' object is not subscriptable解决方式
zq_zhang的专栏
07-22 941
解决方案： 　　　因为新版本的openpyxl使用rows或者columns返回一个生成器所以可以使用List来解决报错问题 即将 sheet.rows[colNo -1] 转换为 list(sheet.rows)[colNo -1] ...
按照excel某列的不同值，用vba语句生成不同的sheet
07-14
可以使用VBA语句按照Excel某列的不同值生成不同的sheet。以下是一个示例代码，可以根据"A"列的不同值生成不同的sheet： ```vba Sub GenerateSheets() Dim ws As Worksheet Dim newWs As Worksheet Dim lastRow As Long Dim cellValue As Variant ' 读取"A"列最后一行 lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 创建主工作表 Set ws = ThisWorkbook.Worksheets.Add ws.Name = "Main" ' 遍历"A"列的每个单元格 For Each cell In Range("A1:A" & lastRow) cellValue = cell.Value ' 检查当前单元格的值是否已存在为sheet名字的工作表 On Error Resume Next Set newWs = ThisWorkbook.Worksheets(cellValue) On Error GoTo 0 ' 如果该工作表不存在，则创建新工作表并命名为当前单元格的值 If newWs Is Nothing Then Set newWs = ThisWorkbook.Worksheets.Add newWs.Name = cellValue End If ' 将当前单元格的内容复制到新工作表中 ws.Rows(cell.Row).Copy newWs.Rows(newWs.Cells(Rows.Count, 1).End(xlUp).Row + 1) Next cell ' 删除主工作表 Application.DisplayAlerts = False ' 禁止删除确认提示框 ws.Delete Application.DisplayAlerts = True MsgBox "生成工作表完成!" End Sub ``` 你可以将这段代码复制到VBA编辑器中的一个模块中（按下`Alt+F11`打开VBA编辑器），然后在Excel中运行这个宏。运行后，它将按照"A"列的不同值生成不同的工作表，并将对应的行复制到相应的工作表中。 请确保在运行这个宏之前，你已经保存了你的工作簿，因为它会对工作簿进行修改。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值