求跳过隐藏行粘贴的代码

xiaobaige

复制区域和粘贴区域形状不同的代码.rar (18.43 KB, 下载次数: 15)

2016-12-9 09:48 上传

点击文件名下载附件

zax010

[c15:c16].Value = [c4:c5].Value
[e15:f16].Value = [d4:e5].Value

xiaobaige

zax010 发表于 2016-12-9 10:18
[c15:c16].Value = [c4:c5].Value
[e15:f16].Value = [d4:e5].Value

你好，位置不是固定的。

xiaobaige

http://www.exceltip.net/thread-6869-1-1.html这个网页的代码我的文件运行不了，谁能给看看？

microyip

这个动态粘帖的规则，不是一下能说得明白的喔

xiaobaige

microyip 发表于 2016-12-10 12:49
这个动态粘帖的规则，不是一下能说得明白的喔

不用说明白，你能帮我做好传上来吗？或者录个使用过程动态图片。

lsc900707

microyip 发表于 2016-12-10 12:49
这个动态粘帖的规则，不是一下能说得明白的喔

恭喜你积分超过4000大关！

雨夜文曲

Sub 粘贴时跳过隐藏行()
Dim Rng As Range, RngCopy As Range, lrr()
Set RngCopy = Application.InputBox("请选择复制单元格区域", "提示", Type:=8)
Set RngCopy = RngCopy.SpecialCells(xlCellTypeVisible)
a = RngCopy.Cells.Count
ReDim lrr(1 To a)
For Each cell In RngCopy
lrr(i + 1) = cell
i = i + 1
Next

Set Rng = Application.InputBox("请选择粘贴单元格区域", "提示", Type:=8)
Set Rng = Rng.SpecialCells(xlCellTypeVisible)
i = 0
For Each cell In Rng
cell.Value = lrr(i + 1)
i = i + 1
If i = a Then End
Next
End Sub

guski216

雨夜文曲 发表于 2018-8-11 12:11
Sub 粘贴时跳过隐藏行()
Dim Rng As Range, RngCopy As Range, lrr()
Set RngCopy = Application.InputBo ...

大侠，这段代码能不能修改为跨工作薄可执行呢