請問如何簡化VBA代碼

idnoidno

1	2	3	4	5
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
					912	1

工作表如上，代碼如下，請問路過的高手大哥，可以指導一下嗎其中，
If a3>a1, a3*a1;
If a3<a2,a3*a2*2 ..............


76=a3*a1+b3*b1*2+c3*c1*2+d3*d1*2+e3*e1

0.083333=76/912

1. Option Explicit
   
2. Sub taa()
   
3. Dim mrr
   
4. Dim i As Integer, j As Integer
   
5. Dim rg As Object
   
6. Dim tempsum
   
7. 
   
8. With Worksheets("工作表1")
   
9. Range("f:f").ClearContents
   
10. Set rg = Range("a1:f" & Cells(Rows.Count, "A").End(xlUp).Row)
    
11. mrr = rg
    
12. For i = 3 To UBound(mrr)
    
13. tempsum = 0
    
14.     For j = 1 To UBound(mrr, 2)
    
15.         If mrr(i, j) > mrr(1, j) Then
    
16.             mrr(i, UBound(mrr, 2)) = mrr(i, UBound(mrr, 2)) + mrr(i, j) * mrr(1, j)
    
17.         Else
    
18.             mrr(i, UBound(mrr, 2)) = mrr(i, UBound(mrr, 2)) + mrr(i, j) * mrr(1, j) * 2
    
19.         End If
    
20.     Next j
    
21.     tempsum = tempsum + mrr(i, UBound(mrr, 2))
    
22. Next i
    
23. rg = mrr
    
24. Set rg = Nothing
    
25. End With
    
26. 
    
27. Dim mrg As Object
    
28. Dim brr As Variant
    
29. 
    
30. With Worksheets("工作表1")
    
31. Set mrg = Range("f1:g" & Cells(Rows.Count, "f").End(xlUp).Row + 1)
    
32. brr = mrg
    
33. For i = 3 To UBound(brr) - 1
    
34.     brr(UBound(brr), 1) = brr(UBound(brr), 1) + brr(i, 1)
    
35. Next i
    
36. mrg = brr
    
37. Set mrg = Nothing
    
38. End With
    
39. 
    
40. Dim nrg As Object
    
41. Dim crr As Variant
    
42. With Worksheets("工作表1")
    
43. Set nrg = Range("f1:g" & Cells(Rows.Count, "f").End(xlUp).Row)
    
44. crr = nrg
    
45. For i = 3 To UBound(crr)
    
46.     crr(i, 2) = crr(i, 1) / crr(UBound(crr), 1)
    
47. Next i
    
48. nrg = crr
    
49. Set nrg = Nothing
    
50. End With
    
51. 
    
52. End Sub
    
53. 
    

复制代码

france723

先说两个小问题. Dim 可以接着写，比如dim ar,br  。不需要换行。    第二个，你使用with和end with，也没看见你使用。With不是表示在这个工作表操作, 是为了后续方便代替书写。
如果想表示“工作表1”的cells或者Range, 写成sheets("工作表1").range(A3).

idnoidno

謝謝您第一時間回復，關於WITH /END WITH的說明，意思是，其實是不用這樣子嗎?我不是很懂您的說明

france723

idnoidno 发表于 2017-5-28 21:22
謝謝您第一時間回復，關於WITH /END WITH的說明，意思是，其實是不用這樣子嗎?我不是很懂您的說明

你With的用法不对，在With的范围内，可以用 .来代替With的指代。例如 ：

1. With Worksheets("工作表1")
   
2.     A = .Range("A1")     ' .这个就代表了 Worksheets("工作表1").
   
3. End With

复制代码

idnoidno

你的意思是我沒有用"."這樣的指代，其實我的代碼用了都是多餘的，有.和沒有.
意義是不一樣的，對嗎

idnoidno

感謝上面兩位大大的指導，學到正確的用法，謝謝

砂海

" WITH /END WITH "
在 上面你程序中的 完全没有发挥作用 ,
你把上面 with sheets("工作表1") 改为 with sheets("工作表2") 会发现运行结果没有任何变化

-----------------------------------
with sheets("工作表1")
    .range("a1") =123    '有了前面那个 点 , 才跟 with 有关系
end with