求大神帮忙，非常焦急，谢谢！急求VBA大神！

wj2368 · 发表于 2014-5-31 21:37

wusong8707 发表于 2014-5-31 17:37
请楼上看看

..................

wusong8707 · 发表于 2014-6-3 08:43

你这好像没用啊

wusong8707 · 发表于 2014-6-3 08:44

wj2368 发表于 2014-5-31 21:37
..................

你这好像没有用么

wj2368 · 发表于 2014-6-3 08:57

wusong8707 发表于 2014-6-3 08:44
你这好像没有用么

怎么没有用，你按按扭，就在后面表中，

wusong8707 · 发表于 2014-6-3 09:11

wj2368 发表于 2014-6-3 08:57
怎么没有用，你按按扭，就在后面表中，

非常谢谢您，刚刚我没发现，你真厉害，问题解决了！非常感谢！

wusong8707 · 发表于 2014-6-3 09:12

wj2368 发表于 2014-6-3 08:57
怎么没有用，你按按扭，就在后面表中，

等级别到了，我要加你为好友，非常感谢！

wusong8707 · 发表于 2014-6-3 09:25

wj2368 发表于 2014-6-3 08:57
怎么没有用，你按按扭，就在后面表中，

wj2368 这位侠圣大哥，请问我如何查看你的公式呢，我点进去好像没有找到，不知怎么弄，请求解

wj2368 · 发表于 2014-6-3 09:28

wusong8707 发表于 2014-6-3 09:25
wj2368 这位侠圣大哥，请问我如何查看你的公式呢，我点进去好像没有找到，不知怎么弄，请求解

在VBA编辑窗口中可以看到

Sub yy()
Dim brr(1 To 10000, 1 To 9)
Sheet2.[a5:i56565] = ""
arr = Sheet1.Range("a6:ai" & Sheet1.Range("b56565").End(3).Row)
For i = 1 To UBound(arr)
For j = 6 To UBound(arr, 2) Step 5
If arr(i, j + 1) <> "" Then
a = a + 1
brr(a, 1) = arr(i, 1): brr(a, 2) = arr(i, 2)
brr(a, 3) = arr(i, j): brr(a, 4) = arr(i, j + 1): brr(a, 5) = arr(i, j + 2): brr(a, 6) = arr(i, j + 3): brr(a, 7) = arr(i, j + 4)
End If
Next
Next
Sheet2.[a5].Resize(a, 9) = brr
End Sub

复制代码

wusong8707 · 发表于 2014-6-3 11:48

wj2368 发表于 2014-6-3 09:28
在VBA编辑窗口中可以看到

我想把你的VBA公式插入到其他表格链接中，表格的在工作簿的位置发生变化，请问这个怎么调整这个公式呢

wj2368 · 发表于 2014-6-3 13:36

wusong8707 发表于 2014-6-3 11:48
我想把你的VBA公式插入到其他表格链接中，表格的在工作簿的位置发生变化，请问这个怎么调整这个公式呢

arr = Sheet1.Range("a6:ai" & Sheet1.Range("b56565").End(3).Row)
Sheet2.[a5].Resize(a, 9) = brr
这二个工作表名对应

		自动登录	找回密码
密码			免费注册