求助：数组语句多个判断取值

hivictor

要求：
将根据科目余额表第二列将科目余额表的的J列金额分别填到资产负债表C列，判断条件如下：
如果sheets("科目余额表").Cells(i ,2).value=银行存款  则把银行存款所在行的J列金额 赋值给资产负债表 货币资金 所在行 的第 3列；以此类推，如果如果sheets("科目余额表").Cells(i ,2).value=应收账款 则把 应收账款所在行的J列金额赋值给资产负债表 应收账款 所在行的 第三列；以此类推。

求大神帮忙，我写了一部分但实现不了，如何通过数组或者有更简洁的办法。

hivictor

Sub 资产负债表()
arr = Sheets("资产负债表").Range("a4:j" & [j65536].End(3).Row)
brr = Sheets("科目余额表").Range("a8:j" & Sheets("科目余额表").[j65536].End(3).Row - 9)
For i = 10 To UBound(arr)
      For j = 4 To UBound(brr)
          If Sheets("科目余额表").Cells(i, 2).Value = "1002\银行存款" Then
          Sheets("资产负债表").Cells(4, 3).Value = Sheets("科目余额表").Cells(i, 10).Value
          Else
          If Sheets("科目余额表").Cells(i, 2).Value = "1122\应收账款" Then
          Sheets("资产负债表").Cells(12, 3).Value = Sheets("科目余额表").Cells(i, 10).Value
          Else
          If Sheets("科目余额表").Cells(i, 2).Value = "1123\预付账款" Then
          Sheets("资产负债表").Cells(13, 3).Value = Sheets("科目余额表").Cells(i, 10).Value
          End If
          End If
       End If
      Next j
Next i