用宏解决如果某单元格为特定值，另一个单元格填写什么内容

大脸杀手

如图，这个表数据有很多 我需要 用宏筛选出 支付方式在一次性支付的，在分摊月份里 填写 12
如果支付方式为 分期支付，我在分摊月份里 填写 另外两个单元格的 相除的结果，谢谢

ww87725244

会存在其它支付方式吗？

不知道为什么

就这么一张表，你分了好几个贴子。可以一次把所有需求写出来，一次解决

大脸杀手

不知道为什么 发表于 2018-7-2 19:13
就这么一张表，你分了好几个贴子。可以一次把所有需求写出来，一次解决

一步一步的做 大神 求助 来帮帮我 55555 因为事关重大 要报税的 所以我 一步一步来

大脸杀手

ww87725244 发表于 2018-7-2 18:51
会存在其它支付方式吗？

不存在 就这两种

不知道为什么

大脸杀手 发表于 2018-7-2 19:24
不存在 就这两种

如图，是不是你需要的结果？这是在你第一个贴子的附件基础上做的，我建议你不要轻易删除源数据，这样风险比较大。所以我在不改动你原来数据的基础上，把结果单独
生成一个  结果 的表格，简单的视觉效果也帮你做好。

不知道为什么

大脸杀手 发表于 2018-7-2 19:23
一步一步的做 大神 求助 来帮帮我 55555 因为事关重大 要报税的 所以我 一步一步来

代码供参考@

一把小刀闯天下

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 10 Then
    Application.EnableEvents = False
    Dim arr, i
    arr = Range("e2:j" & Cells(Rows.Count, "e").End(xlUp).Row)
    ReDim brr(1 To UBound(arr, 1), 1 To 1)
    For i = 1 To UBound(arr, 1)
      If Len(arr(i, 6)) Then
        Select Case arr(i, 1)
        Case "一次性支付": brr(i, 1) = 12
        Case "定额支付": brr(i, 1) = arr(i, 4) / arr(i, 2)
        '
        '
        End Select
      End If
    Next
    [j2].Resize(UBound(brr, 1)) = brr
    Application.EnableEvents = True
  End If
End Sub

不知道为什么

一把小刀闯天下 发表于 2018-7-2 20:17
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

谢谢 小刀大神打赏！您可是我的学习榜样啊！

ww87725244

1. Sub aa()
   
2. Dim ar, i&
   
3. With Sheet1
   
4.     ar = .Range(.Cells(2, "e"), .Cells(.UsedRange.Rows.Count, "j"))
   
5.     For i = 1 To UBound(ar)
   
6.         If ar(i, 1) = "一次性支付" Then
   
7.             ar(i, UBound(ar, 2)) = 12
   
8.         Else
   
9.             ar(i, UBound(ar, 2)) = ar(i, 4) / ar(i, 2)
   
10.         End If
    
11.     Next
    
12.     .[e2].Resize(UBound(ar), UBound(ar, 2)) = ar
    
13. End With
    
14. End Sub

复制代码