把多个行中非空单元格复制到下一个空行的新表中
创始人
2024-11-20 08:30:30
0次
  1. 首先，需要为原始表和新表定义一个范围。

Sub CopyNonEmpty() Dim sourceRange As Range, targetRange As Range

'定义源表格的范围 Set sourceRange = Sheets("Sheet1").Range("A1:F10")

'确定目标表格的范围 Set targetRange = Sheets("Sheet2").Range("A1:F10")

  1. 接下来，我们需要遍历源表格中的每一行，查找有哪些单元格是非空的，将它们复制到新表的下一个空行中。

'遍历源表格中的每一行 For Each Row In sourceRange.Rows

'如果该行中至少有一个单元格非空 If WorksheetFunction.CountA(Row) <> 0 Then

'查找新表中的下一个空行，并将源行复制到该行中 Set nextRow = targetRange.Rows(targetRange.Rows.Count).End(xlUp).Offset(1) Row.Copy nextRow

End If Next End Sub

  1. 最后，调用该子程序以复制非空单元格。

CopyNonEmpty()

上一篇：把多个文件合并为单个PDF文件

下一篇：把多行数据合并为一行数据的表达方式

相关内容

热门资讯

突发!随意玩辅助器视频透视挂!... 突发!随意玩辅助器视频透视挂!果然真的有辅助下载(有挂工具)-哔哩哔哩1、下载好随意玩辅助器视频透视...
截至发稿!微信卡五星辅助器!真... 截至发稿!微信卡五星辅助器!真是真的是有辅助挂(发现有挂)-哔哩哔哩1、截至发稿!微信卡五星辅助器!...
做出回应!衢州都莱破解器!真是... 做出回应!衢州都莱破解器!真是有挂辅助软件(有挂实锤)-哔哩哔哩小薇（辅助器软件下载）致您一封信；亲...
今天下午!八仙游戏辅助!一贯存... 今天下午!八仙游戏辅助!一贯存在有辅助软件(有挂讲解)-哔哩哔哩1、进入到八仙游戏辅助是否有挂之后，...
经调查!道游辅助脚本!确实是真... 经调查!道游辅助脚本!确实是真的辅助脚本(有挂存在)-哔哩哔哩1、全新机制【道游辅助脚本ai辅助工具...
据相关数据显示!陕麻圈黑科技!... 据相关数据显示!陕麻圈黑科技!切实是有辅助软件(有挂详细)-哔哩哔哩1、进入游戏-大厅左侧-新手福利...
不少玩家反映!福州十八扑有外g... 不少玩家反映!福州十八扑有外g挂吗!其实有挂辅助修改器(详细教程)-哔哩哔哩1、完成福州十八扑有外g...
记者获悉!福建兄弟13水辅助!... 记者获悉!福建兄弟13水辅助!总是是真的辅助安装(有挂方式)-哔哩哔哩1、完成福建兄弟13水辅助辅助...
截至目前!天天贵阳app破解版... 截至目前!天天贵阳app破解版!都是真的有辅助插件(有挂解惑)-哔哩哔哩1、实时天天贵阳app破解版...
截至发稿!掌中乐游戏中心云南辅... 截至发稿!掌中乐游戏中心云南辅助!一贯存在有辅助app(有挂规律)-哔哩哔哩掌中乐游戏中心云南辅助是...