|
发表于 2012-6-25 13:11
|
显示全部楼层
本楼为最佳答案
本帖最后由 hrpotter 于 2012-6-25 13:56 编辑
- Sub 汇总()
- Dim ar
- Dim rng As Range
- Dim i As Integer, k As Integer
- Dim s As String
- With Sheets("凭证汇总")
- ar = .Range("a2:c" & .Range("a65536").End(xlUp).Row) '把凭证汇总的第二行开始的数据区域赋值给数组
- s = .Range("d1") '把选择的月份赋值给s
- k = Application.Match(s, Array("一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月"), 0) '确定月份是第几,后面要根据这个确定输入位置
- End With
- With Sheets("总账")
- For i = 1 To UBound(ar) '在数组中循环科目
- Set rng = .Range("h:h").Find(ar(i, 1), , , xlWhole) '在总账的h列查找当前科目所在的单元格
- If Not rng Is Nothing Then '如果找到该科目
- rng.Offset(3 + k, -2) = ar(i, 2) '根据上面月份得出的数字进行偏移确定总账月份的借方所在的单元格并赋值
- rng.Offset(3 + k, -1) = ar(i, 3) '贷方赋值
- End If
- Next
- End With
- End Sub
复制代码
|
|