[發問] 求救~VBA撰寫

peter631114

Dear 大大
我這邊有一個VBA問題,不知道如何撰寫,可以請各位專家協助幫忙

問題如下圖所示,希望最後呈現結果如K欄與M欄,基本上問題就是
利用B欄內的條件依序判斷,

1.        B2=B3,則K2=A2 與 M2=A3
2.        B2=B4,則K3=A2 與 M3=A4
3.        B2=B5,則K4=A2 與 M4=A5
4.        B2<>B6則往下跳至B3儲存格進行作業
5.        B3=B4, 則K5=A3 與 M5=A4
6.        B3=B5, 則K6=A3 與 M6=A5
7.        B3<>B6則往下跳至B4儲存格進行作業

問題如下圖所示,希望最後呈現結果如K欄與M欄,基本上問題就是
利用B欄內的條件依序判斷,

1.        B2=B3,則K2=A2 與 M2=A3
2.        B2=B4,則K3=A2 與 M3=A4
3.        B2=B5,則K4=A2 與 M4=A5
4.        B2<>B6則往下跳至B3儲存格進行作業
5.        B3=B4, 則K5=A3 與 M5=A4
6.        B3=B5, 則K6=A3 與 M6=A5
7.        B3<>B6則往下跳至B4儲存格進行作業

下載 (64.92 KB)
問題

2018-6-12 15:50

活頁簿1.rar (12.09 KB)

問題VBA
下載次數: 4

2018-6-12 15:47

peter631114

大大
不好意思,上次說明有誤,可否參考上面敘述,重新幫忙修改

peter631114

回復 3# peter631114

peter631114

回復 2# GBKEE
大大:
真的是萬分感謝,可以用了~~謝謝~~我愛這個討論區了~~我要慢慢吸收大大你所撰寫的內容,有問題我再提出詢問~~再次感謝

GBKEE

回復 1# peter631114
試試看

1. Option Explicit
   
2. Sub Test()
   
3.     Dim Rng As Range, i, ii
   
4.     Set Rng = [b2]
   
5.     ' Rng.Cells(1) =[b2], Rng.Cells(2) =[b3]
   
6.     ' Rng.Offset(, -1)  , -1 為 向左一欄(A),0 為 Rng所在的欄位(B),1 為 向右一欄(C)
   
7.      'Rng.Offset(i - 1, -1)  ,i - 1 為 列號
   
8.     ii = 2
   
9.     Do While Rng <> ""
   
10.         i = 2
    
11.         Do While Rng = Rng.Cells(i)
    
12.             Cells(ii, "k") = Rng.Offset(, -1)
    
13.             Cells(ii, "m") = Rng.Offset(i - 1, -1)
    
14.             i = i + 1:             ii = ii + 1
    
15.          Loop
    
16.         Set Rng = Rng.Offset(1)
    
17.     Loop
    
18. End Sub

複製代碼