Excel VBA end up 的語法

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

 ABCDE

一____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,十)

...

...

...

3 Answers

Rating
  • pop
    Lv 7
    1 decade ago
    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

  • 1 decade ago

    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,八)

  • 1 decade ago

    好像沒有規律性?

Still have questions? Get your answers by asking now.