计算一个表中两个区域的差，增加百分比

江边垂钓

计算一个表中两个区域的差，增加百分比





涂颜色的要求值的区域
1.计算要求2024年减去2023年
2.这是其中一个表，第二张表列数行数与第一张表不同。
3.每张表3个区域格式相同，每两个区域之间空一行。
4.表比较多，请万能的朋友，用vba如何操作。

shiruiqiang

有空格、比较规律那简单，从表的底往上循环，定义区域.currentregion,字典，写入倒数第三张表。清空字典，再往上

江边垂钓

shiruiqiang 发表于 2024-11-13 22:26
有空格、比较规律那简单，从表的底往上循环，定义区域.currentregion,字典，写入倒数第三张表。清空字典， ...

还没有学到字典，谢谢，谢谢解题思路。查一下资料。

loirol

用不到字典，单纯的数组相减

ykcbf1100

单用数组。。。

ykcbf1100

比较规律，简单

1. Sub ykcbf()   '//2024.11.14
   
2.     For Each sht In Sheets
   
3.         With sht
   
4.             r = .Cells(Rows.Count, 1).End(3).Row
   
5.             c = .UsedRange.Columns.Count
   
6.             arr = .[a1].Resize(r + 1, c)
   
7.             l = UBound(arr) / 3
   
8.             For i = 6 To l - 1
   
9.                 For j = 3 To UBound(arr, 2)
   
10.                    arr(i, j) = arr(i + l, j) - arr(i + 2 * l, j)
    
11.                 Next
    
12.             Next
    
13.             .[a1].Resize(r + 1, c) = arr
    
14.         End With
    
15.     Next
    
16.     MsgBox "OK！"
    
17. End Sub
    

复制代码

shiruiqiang

江边垂钓

ykcbf1100 发表于 2024-11-14 08:11
比较规律，简单

谢谢，可以运行，

江边垂钓

ykcbf1100 发表于 2024-11-14 08:11
比较规律，简单

换了张表运行下标越界，是否与a1单元格为合并单元格？

ykcbf1100

江边垂钓 发表于 2024-11-14 17:26
换了张表运行下标越界，是否与a1单元格为合并单元格？

你这个表，A列数据空的，你为啥A列数据会成空呢？
代码没有问题，你A列不要让它为空就行了。