把多个行中非空单元格复制到下一个空行的新表中
创始人
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文件

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

相关内容

热门资讯

十分钟辅助！wepoker有人... 十分钟辅助！wepoker有人用过吗，wepoker私局代打，课程教程（有挂秘笈）1、wepoker...
4分钟辅助！wpk真吗，wep... 4分钟辅助！wpk真吗，wepoker免费脚本咨询，资料教程（有挂解密）1、wepoker免费脚本咨...
第一分钟辅助！wpk俱乐部辅助... 第一分钟辅助！wpk俱乐部辅助器，wepoker俱乐部辅助，积累教程（有挂教学）1、在wepoker...
第二分钟辅助！wejoker黑... 第二分钟辅助！wejoker黑侠辅助器，xpoker透视辅助，项目教程（有挂工具）1、在wejoke...
第四分钟辅助！wpk系统是否存... 第四分钟辅助！wpk系统是否存在作弊行为，wpk辅助哪里买，方针教程（真实有挂）1、wpk系统是否存...
第七分钟辅助！wepoker可... 第七分钟辅助！wepoker可以免费玩吗，wepoker看底牌，项目教程（有挂秘籍）1、wepoke...
第9分钟辅助！xpoker辅助... 第9分钟辅助！xpoker辅助怎么用，We poker辅助器下载，机巧教程（有挂教程）1、We po...
4分钟辅助！智星德州插件，we... 4分钟辅助！智星德州插件，wepoker轻量版书签，教材教程（有挂存在）亲，关键说明，wepoker...
一分钟辅助！hhpoker有后... 一分钟辅助！hhpoker有后台操控吗，wepoker脚本下载，大纲教程（有挂细节）1、游戏颠覆性的...
两分钟辅助！智星菠萝辅助，德州... 两分钟辅助！智星菠萝辅助，德州圈脚本，窍要教程（有挂方略）1、智星菠萝辅助免费辅助多个强度级别选择2...