您现在的位置: 首页 > 网站导航收录 > 百科知识百科知识

怎么用VBA实现复制区域然后逐个粘贴到单元格？

你的,不太,我的怎么用VBA实现复制区域然后逐个粘贴到单元格？

发布时间：2019-02-08加入收藏来源：互联网点击：

问题补充： k1=selection rowk2=selection row countfor，i=k1 to k1+k2-1，target cell=cells("B" & i)next i关键是逐个点选目标单元格，诚心求教！

回答于 2019-09-11 08:43:50

回答于 2019-09-11 08:43:50

因为你没有文件和截图，不太清楚你的文件的数据结构，我大致模范了你下你的操作的，下面是我的代码

Sub tes()

Dim arr

arr = Selection

L = Selection.Rows.Count

Range("B1").Resize(L, 1) = arr

End Sub

最终效果是这样的

不太建议一个一个的录入，因为数据大的话会很卡，建议采用数组的方式