熟悉VBA的请进

发布网友发布时间：2022-05-05 02:16

共3个回答

热心网友时间：2022-06-28 14:16

哈哈，这个很简单的,在sheet2的Worksheet_Change事件中写道：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, j As Integer

If Target.Row = 1 And Target.Column = 1 Then
Range("A3:B1000") = ""
i = 2
j = 3
Sheets("sheet2").Range("A2")="日期"
Sheets("sheet2").Range("G2")="销售数量"

Do While Sheets("sheet1").Range("B" & i) <> ""
If Sheets("sheet1").Range("B" & i) = Target.Value Then
Sheets("sheet2").Range("A" & j) = Sheets("sheet1").Range("A" & i)
Sheets("sheet2").Range("B" & j) = Sheets("sheet1").Range("C" & i)
j = j + 1
End If
i = i + 1
Loop
End If
End Sub
然后在A1中输入A/B/C/D后回车,就能得到你想要的了

热心网友时间：2022-06-28 14:17

同一家公司同一天是否有2行或多行销售？
源数据是否按日期、公司排列？
统计A公司后，再统计B公司，原A公司数据是手工删除还是自动删除？

热心网友时间：2022-06-28 14:17

如果你VBA不好的话，用公式也可以解决的。