|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub test()
Dim rng As Range, rng1 As Range, rng2 As Range
Dim i As Integer, j As Integer, k As Integer
Set rng1 = Application.InputBox("请选择复制区域", , , , , , , 8)
Set rng2 = Application.InputBox("请选择粘贴区域", , , , , , , 8)
Set rng = rng2.SpecialCells(xlCellTypeVisible)
For i = 1 To rng.Areas.Count
For j = 1 To rng.Areas(i).Cells.Count
rng.Areas(i).Cells(j).Value = rng1.Cells(k).Value
k = k + 1
If k = rng1.Cells.Count Then Exit Sub
Next
Next
End Sub
用这个 保证解决 |
|