跳过空行，在另外的表格里自动填充，求救
时间：2011-08-08
来源：互联网
在sheet1的A1输入内容时，sheet2的A1会自动显示sheet1的A1内容（不需要再动用复制粘贴的功能），但是当sheet1的A2的单元格是空格，A3不空时，sheet2的A2显示的是sheet1的A3的内容。向大家求救，谢谢。
请教.rar(5.22 KB)
附件
请教.rar(5.22 KB)
2011-8-8 15:41, 下载次数: 2
跳过空行，在另外的表格里自动填充
作者: evarainmm 发布时间: 2011-08-08
....................
请教.rar(12.1 KB)
附件
请教.rar(12.1 KB)
2011-8-8 15:47, 下载次数: 2
作者: yangrongguan 发布时间: 2011-08-08
Private Sub Worksheet_Activate()
Dim R As Range, c As Range
Cells.Clear
Sheet1.UsedRange.Copy [a1]
For Each c In Sheet2.UsedRange.Rows
If c.Find("*") Is Nothing Then
If R Is Nothing Then Set R = c Else Set R = Union(c, R)
End If
Next
If Not R Is Nothing Then R.Delete (3)
End Sub
Dim R As Range, c As Range
Cells.Clear
Sheet1.UsedRange.Copy [a1]
For Each c In Sheet2.UsedRange.Rows
If c.Find("*") Is Nothing Then
If R Is Nothing Then Set R = c Else Set R = Union(c, R)
End If
Next
If Not R Is Nothing Then R.Delete (3)
End Sub
作者: Zamyi 发布时间: 2011-08-08
引用:
原帖由 yangrongguan 于 2011-8-8 15:47 发表....................
作者: evarainmm 发布时间: 2011-08-08
这个好像运行后，SHEET1和SHEET2都变成空白了，不知道怎么回事
作者: evarainmm 发布时间: 2011-08-08
引用:
原帖由 evarainmm 于 2011-8-8 16:11 发表这个好像运行后，SHEET1和SHEET2都变成空白了，不知道怎么回事
作者: 贝妮 发布时间: 2011-08-08
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
