[已解决]请问如何写VBA

kenleong

请各位大大帮忙, 如何在

• Zone: F&B 以上的Team no, 在Float USD和FloatHKD自动填入5000,
• Zone:VIP以上的Team no,在Float USD自动填入20000, Float HKD是5000
• Zone:Others 以上的Team no,在Float USD自动填入1000, Float HKD是100
  

请问如何写个VBA, 谢谢

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-12-1 19:31

1. Sub test()
   
2. Dim s$, i&, arr
   
3. s = "Others1000:100:Retail2500:2500:VIP20000:5000:F&B5000:5000"
   
4. For i = Cells(Rows.Count, 2).End(3).Row To 2 Step -1
   
5.   If Not IsNumeric(Cells(i, 2)) Then
   
6.     arr = Split(Split(s, Trim(Mid(Cells(i, 2), 6)))(1), ":")
   
7.   ElseIf Cells(i, 2) <> "" Then
   
8.     Cells(i, 3).Resize(, 2) = arr
   
9.   End If
   
10. Next i
    
11. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub test()
   
2. Dim s$, i&, arr
   
3. s = "Others1000:100:Retail2500:2500:VIP20000:5000:F&B5000:5000"
   
4. For i = Cells(Rows.Count, 2).End(3).Row To 2 Step -1
   
5.   If Not IsNumeric(Cells(i, 2)) Then
   
6.     arr = Split(Split(s, Trim(Mid(Cells(i, 2), 6)))(1), ":")
   
7.   ElseIf Cells(i, 2) <> "" Then
   
8.     Cells(i, 3).Resize(, 2) = arr
   
9.   End If
   
10. Next i
    
11. End Sub

复制代码

大灰狼1976

@cutecpu
感谢超版大大加分，我也会再接再厉。

kenleong

感谢大大的帮忙