求助判断取数的VBA，望老师们给予帮助，谢谢

zhycl

附件表中 最后一个工作表有说明，先谢过了 示例.rar (21.7 KB, 下载次数: 12)

2018-7-11 09:24 上传

点击文件名下载附件

补充说明：
1、工作表名为01  02 03  会逐渐增加。
2、后面的“项目付款明细”和“台账汇总”的行数不固定，会越来越多。

chaohuahch

我看你的开票单位，是根据申请单号来的。但是申请单号在“台账汇总”的表格里面没有。是否这一行是手动填写的？

chaohuahch

详细的结果见 5 楼

zhycl

顶一顶 顶一顶顶一顶顶一顶顶一顶

chaohuahch

完整的成果如下：

zhycl

chaohuahch 发表于 2018-7-11 10:32
完整的成果如下：

首先谢谢老师的帮助，但是我把代码 用于我的真实表中，运行后无结果呢，如图所示 还得请老师受累给看看，具体见如下附件。谢谢
项目款支付申请表-VBA-示例.rar (71.13 KB, 下载次数: 3)

2018-7-11 19:13 上传

点击文件名下载附件

lsc900707

zhycl 发表于 2018-7-11 18:49
首先谢谢老师的帮助，但是我把代码 用于我的真实表中，运行后无结果呢，如图所示还得请老师受累给看看， ...

1. Sub 项目付款明细()
   
2. Dim nRow, arr
   
3. Dim nRow1, arr1, brr, crr
   
4. Dim sh As Worksheet
   
5. Application.ScreenUpdating = False
   
6. 
   
7. With Sheets("台账汇总")
   
8.   nRow = .Range("a" & .Rows.Count).End(3).Row
   
9.   arr = .Range("a5:f" & nRow)
   
10. End With
    
11.   
    
12. With Sheets("项目付款明细")
    
13.   nRow1 = .Range("a" & .Rows.Count).End(3).Row
    
14.   arr1 = .Range("a6:g" & nRow1)
    
15.   brr = .Range("b6:b" & nRow1)
    
16.   crr = .Range("h6:h" & nRow1)
    
17. End With
    
18.   
    
19.   For i = 1 To UBound(arr)
    
20.      For j = 1 To UBound(arr1)
    
21.        If arr1(j, 1) = arr(i, 1) Then
    
22.          For k = 3 To 7
    
23.             arr1(j, k) = arr(i, k - 1)
    
24.          Next k
    
25.        End If
    
26.      Next j
    
27.   Next i
    
28.   
    
29. Sheets("项目付款明细").Range("a6:g" & nRow1) = arr1
    
30.   
    
31. For Each sh In Worksheets
    
32.   For i = 1 To UBound(brr)
    
33.     If sh.Name = brr(i, 1) Then
    
34.      crr(i, 1) = sh.Range("C7")
    
35.     End If
    
36.   Next i
    
37. Next sh
    
38. Sheets("项目付款明细").Range("h6:h" & nRow1) = crr
    
39. Application.ScreenUpdating = True
    
40. 
    
41. End Sub
    

复制代码

chaohuahch

zhycl 发表于 2018-7-11 18:49
首先谢谢老师的帮助，但是我把代码 用于我的真实表中，运行后无结果呢，如图所示还得请老师受累给看看， ...

一时疏忽。本处的j修改成i、原来的代码，用你的真实数据的话，会下标越界。我的问题。

zhycl

lsc900707 发表于 2018-7-11 21:31

非常感谢老师帮助

zhycl

chaohuahch 发表于 2018-7-12 09:50
一时疏忽。本处的j修改成i、原来的代码，用你的真实数据的话，会下标越界。我的问题。

非常感谢老师的帮助