[發問] 若儲存格值為Y 新增一欄 數值為1

bonnieyu53

下載 (3.73 KB)

2015-10-31 17:21

想請教各位大師
若A欄儲存格值為Y
在右邊新增一欄
將有Y的儲存格在B欄變成1

完成如下：

下載 (3.47 KB)

2015-10-31 17:22

VBA初學者，研究了一下午
就是沒有辦法複製 ...... help

n7822123

回復 1# bonnieyu53

程式碼與範例如下，選擇1種方試理解就可以了:D

1. Sub 法1()
   
2. Columns(2).Insert
   
3. For Each rg In Range([a1], Cells(Rows.Count, 1).End(xlUp))
   
4. If rg = "Y" Then rg.Offset(, 1) = 1 Else rg.Offset(, 1) = ""
   
5. Next
   
6. End Sub
   
7. 
   
8. Sub 法2()
   
9. Columns(2).Insert
   
10. R = [a1].CurrentRegion.Rows.Count
    
11. For i = 1 To R
    
12.   If Cells(i, 1) = "Y" Then Cells(i, 2) = "1" Else Cells(i, 2) = ""
    
13. Next
    
14. End Sub

複製代碼

n7822123

回復 2# n7822123


    抱歉，剛剛漏看了，你的第一欄原本是Y變成空白，更正如下

1. Sub 法1()
   
2. Columns(2).Insert
   
3. For Each rg In Range([a1], Cells(Rows.Count, 1).End(xlUp))
   
4. If rg = "Y" Then rg.Value = "": rg.Offset(, 1) = 1
   
5. Next
   
6. End Sub
   
7. 
   
8. Sub 法2()
   
9. Columns(2).Insert
   
10. R = [a1].CurrentRegion.Rows.Count
    
11. For i = 1 To R
    
12.   If Cells(i, 1) = "Y" Then Cells(i, 1) = "": Cells(i, 2) = 1
    
13. Next
    
14. End Sub

複製代碼

bonnieyu53

謝謝 n7822123
太感激了，可以使用，非常謝謝您！