Tag: 求和

VBA不同纸张上的两个二维数组的总和

我试图在SheetB上添加/减去SheetA上/从matrix的matrix，并在SheetA + B上打印结果。 此代码工作，但是当我使用matrix不是正方形，那么我得到的错误下标超出范围。 任何想法做什么？ matrixA和B的大小相同，但大小是用户定义的，始终以A1开头。 Private Sub CommandButton5_Click() '''''''''''''''''''A+B''''''''''''''''''''''''' 'determining matrix size Worksheets("A").Activate Dim a As Integer Dim b As Integer lastcol = ActiveSheet.Range("a1").End(xlToRight).Column lastrow = ActiveSheet.Cells(65536, lastcol).End(xlUp).Row a = lastcol b = lastrow Dim matricaA As Range Dim matricaB As Range With Sheets("A") lastcol = ActiveSheet.Range("a1").End(xlToRight).Column lastrow = ActiveSheet.Cells(65536, lastcol).End(xlUp).Row Set matricaA = […]