请求高手帮忙翻译一段VBA代码翻译成VSTO（C#）

草头将军

  请求高手帮忙将下面的VBA代码翻译成VSTO（C#）的

1. Sub 提取数据()
   
2. On Error Resume Next
   
3. Dim wsh As Worksheet, i As Integer, brr(), j As Integer, arr
   
4. For Each wsh In Worksheets
   
5. If wsh.Name = "提取数据" Then GoTo 100
   
6. j = wsh.Range("a65536").End(xlUp).Row
   
7. arr = wsh.Range("a5:n" & j)
   
8. k = k + UBound(arr)
   
9. ReDim Preserve brr(1 To 14, 1 To k)
   
10. For i = 1 To UBound(arr)
    
11. If arr(i, 13) = "不限" Then
    
12. n = n + 1
    
13. brr(1, n) = arr(i, 1)
    
14. brr(2, n) = arr(i, 2)
    
15. brr(3, n) = arr(i, 3)
    
16. brr(4, n) = arr(i, 4)
    
17. brr(5, n) = arr(i, 5)
    
18. brr(6, n) = arr(i, 6)
    
19. brr(7, n) = arr(i, 7)
    
20. brr(8, n) = arr(i, 8)
    
21. brr(9, n) = arr(i, 9)
    
22. brr(10, n) = arr(i, 10)
    
23. brr(11, n) = arr(i, 11)
    
24. brr(12, n) = arr(i, 12)
    
25. brr(13, n) = arr(i, 13)
    
26. brr(14, n) = arr(i, 14)
    
27. End If
    
28. Next
    
29. 100:
    
30. Next
    
31. Sheets("提取数据").Range("a2").Resize(n, 14) = Application.WorksheetFunction.Transpose(brr)
    
32. End Sub

复制代码