[已解决]请帮忙把表1的功能放进表2吧。

日斜阳

1压缩包内的文件里有个宏。我想把这个放进2压缩包中的sheet6去，请帮忙解决下吧，2压缩包内的excel文档有打开和写入密码，都是：aa

最佳答案

月排行榜 / 总排行榜

wayy

2015-1-16 13:53

日斜阳 发表于 2015-1-15 09:00
按照你说的做了，但是运行时提示无法运行宏。

wayy.rar (589.36 KB, 下载次数: 4)

2015-1-16 13:52 上传

点击文件名下载附件

把sheet1的工作表密码去掉就可以运行了。

跳转到最佳答案楼层

wayy

1. Sub test()
   
2. Dim arr, brr(1 To 100000, 1 To 2)
   
3. arr = Sheet1.[a1].CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     For j = 1 To arr(i, 2)
   
6.         k = k + 1
   
7.         brr(k, 1) = arr(i, 1)
   
8.         brr(k, 2) = arr(i, 2)
   
9.     Next
   
10. Next
    
11. [c:d].Clear
    
12. [c1:d1] = Array("商品名称", "数量")
    
13. [c2].Resize(k, 2) = brr
    
14. End Sub

复制代码

就是把这个代码放进去吗？ALT+F11进行编辑器，右键左侧工程管理器，新建模块，然后粘进代码去就行了。

1091126096

sheet6 里面没有任何数据。

日斜阳

1091126096 发表于 2015-1-14 14:09
sheet6 里面没有任何数据。

就是因为没有任何数据，才把表1中的功能放进去的。因为表2和表1经常要用到，每次使用都得开两个窗口，很烦人，所以想整合到一块。

日斜阳

wayy 发表于 2015-1-14 14:08
就是把这个代码放进去吗？ALT+F11进行编辑器，右键左侧工程管理器，新建模块，然后粘进代码去就行了。

按照你说的做了，但是运行时提示无法运行宏。

日斜阳

顶上去找人帮忙

wayy

日斜阳 发表于 2015-1-15 09:00
按照你说的做了，但是运行时提示无法运行宏。

wayy.rar (589.36 KB, 下载次数: 4)

2015-1-16 13:52 上传

点击文件名下载附件

把sheet1的工作表密码去掉就可以运行了。

wayy

日斜阳 发表于 2015-1-15 09:00
按照你说的做了，但是运行时提示无法运行宏。

把sheet1的工作表密码去掉就可以运行了。

日斜阳

wayy 发表于 2015-1-16 13:53
把sheet1的工作表密码去掉就可以运行了。

在哪取消写入密码？2010版本的