另类写入单元格区域的方法

一指禅

很好的方法，谢谢楼主分享

hustnzj

Zamyi 发表于 2011-9-1 16:03
有没有按一楼附件运行？

有可能是开启了某种程序使得剪贴板不能用，我今天就遇到了，呵呵

liucqa

不错的方法               

aman1516

flysum2008 发表于 2011-9-1 15:00
执行程序时总是提示 "类worksheet的paste方法无效"，请教如何解决

2003，遇到同样问题，引用也不行。怎么调试都不行。是否可改其它代码？求解!!  希望能用到啊

teamyth

这个比较实用，经常处理大数据，学习了

sunny_8848

学习了，多谢

wy1508

我是初学者，请问为什么在宏中看不到？

wy1508

请教高手，如何将如下两个程序合并在一起，主要是想解决第一个程序中的结果大于65536的问题，谢谢！
第一个程序：
Sub cfz()
Dim i&, Myr&, Arr
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a1:g" & Myr)
For i = 2 To UBound(Arr)
    d(Arr(i, 3)) = d(Arr(i, 3)) + 1
Next
k = d.keys
t = d.items
Sheet2.Activate
[a2].Resize(d.Count, 1) = Application.Transpose(k)
[b2].Resize(d.Count, 1) = Application.Transpose(t)
[a1].Resize(1, 2) = Array("姓名", "重复个数")
Set d = Nothing
End Sub

第二个程序：

Public Sub XieRu(a, R As Range)
'a：待写入数组；R：写入起始位置
Dim d As Object
Set d = New DataObject
d.SetText Join(a, vbLf)
d.PutInClipboard
R.Select
ActiveSheet.Paste
Set d = Nothing
End Sub

wwwruc

好东西，学习了。

cj200002

原来transpose受65536限制，在03，07，10中都受限制。