VBA按条件数据汇总

liyulan

各位大神：
初学VBA，很多东西不会变通运用。
有两个工作表，分别是《明细》、《汇总》，我想实现的功能如下：
《明细》中，如果B列是“制造部 直接”，就把P:V列、Y:AF列“数值相加汇总，填写到《汇总》Range"F6"里面。
哪位高手指点一下，谢谢啦。

凌空一羽

是O到V列吧？
Sub lkyy()
ar = Sheet2.UsedRange
For i = 4 To UBound(ar)
    If ar(i, 2) = [b6] Then
        For j = 15 To 22
            s = s + ar(i, j)
        Next
        For j = 25 To 32
            s = s + ar(i, j)
        Next
    End If
Next
[f6] = s
End Sub

huya1979

同问，mark 学习一下。

liyulan

凌空一羽 发表于 2018-8-3 17:14
是O到V列吧？
Sub lkyy()
ar = Sheet2.UsedRange

感谢大神，谢谢。好厉害，高手。

liyulan

凌空一羽 发表于 2018-8-3 17:14
是O到V列吧？
Sub lkyy()
ar = Sheet2.UsedRange

大神，我想请教一下，4 To UBound(ar)是什么意思啊？

liyulan

凌空一羽 发表于 2018-8-3 17:14
是O到V列吧？
Sub lkyy()
ar = Sheet2.UsedRange

大神，我想请教一下，For i = 4 To UBound(ar)是什么意思啊？

liyulan

凌空一羽 发表于 2018-8-3 17:14
是O到V列吧？
Sub lkyy()
ar = Sheet2.UsedRange

大神，我想请教一下，For i =  4 To UBound(ar)是什么意思啊？

liyulan

如果《明细》和《汇总》工作表不在同一个工作簿里，而是两个独立的工作簿时，怎么改代码呀？我自己试着改了，不行，还是水平太浅啦，拜托老师赐教。

凌空一羽

liyulan 发表于 2018-8-8 15:42
如果《明细》和《汇总》工作表不在同一个工作簿里，而是两个独立的工作簿时，怎么改代码呀？我自己试着改了 ...

将这2个工作簿发上来，将并要求附上。
UBound 函数
请参阅     示例     特性

返回一个 Long 型数据，其值为指定的数组维可用的最大下标。

语法

UBound(arrayname[, dimension])

UBound 函数的语法包含下面部分：

部分 描述
arrayname 必需的。数组变量的名称，遵循标准变量命名约定。
dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略 dimension，就认为是 1。



说明

UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。LBound 用来确定数组某一维的上界。

liyulan

凌空一羽 发表于 2018-8-8 21:32
将这2个工作簿发上来，将并要求附上。
UBound 函数
请参阅     示例     特性

明白了，受教了，谢谢老师。
跨工作簿汇总的问题，已经自己弄出来了，谢谢。