Excel VBA end up 的語法

Question

請問一下~如果我有一個表格內容如下

　ＡＢＣＤＥ

一＿＿＿＿10

二01中＿22

三01文12

四02中44

五01文31

六01中＿24

七01文＿12

八02中11

九01文22

十02中＿26

...

...

...

我希望能在A欄中能找到02值後，在E欄能=end up(E,一)+左邊兩格(C欄)-左邊一格(D欄)。目前的問題是想請問如何寫=end up這個VBA?

執行後:

(E,四)=(E,一)+(C,四)-(D,四)

(E,八)=(E,四)+(C,八)-(D,八)

(E,十)=(E,八)+(C,十)-(D,十)

...

...

...

Answer 1

Favorite Answer

你po的題意_

是指_

1_當找出第一個 _是_02_則此筆資料+第一筆資料

2_其他+上一筆有02_的資料值

請問如果_第一筆有_02的資料時_是要+上本身資料?

2009-05-05 09:05:43 補充：

版主好:

請試試_下列_使用_COMMANDBUTTON_執行_

Private Sub CommandButton1_Click()

i1 = Cells(1, 5)

For v = 1 To [A65536].End(xlUp).Row

If Cells(v, 1) = "02" Then

Cells(v, 5) = i1 + Cells(v, 3) + Cells(v, 4)

i1 = Cells(v, 5)

End If

Next

End Sub

希望有幫上忙.

2009-05-05 10:32:30 補充：

sorry!未看清題意_

找到的值會加左邊的第二格減去左邊的一格

更改如下_

Private Sub CommandButton1_Click()

i1 = Cells(1, 5)

For v = 1 To [A65536].End(xlUp).Row

If Cells(v, 1) = "02" Then

Cells(v, 5) = i1 + Cells(v, 3) - Cells(v, 4)

i1 = Cells(v, 5)

End If

Next

End Sub

Answer 2

A欄是沒有規律的~其他都是E欄用end up去找到上一個值，然後加左邊第二格減左邊第一格。

2009-05-05 05:57:39 補充：

To pop,

在第一列中(E,一)都會有一個值，所以在A欄中找到02的值會在同列的E欄向上找值，所以第一次一定找到(E,一)然後找到的值會加左邊的第二格減去左邊的一格，新的值就會存在02那列的E欄 : (E,四)=(E,一)+(C,四)-(D,四) 下一個找到02的值也會在E欄向上找值，在這裡會找到(E,四)然後加左邊的第二格減去左邊的一格，存在E欄 : (E,八)=(E,四)+(C,八)-(D,八)

Answer 3

好像沒有規律性？