产品名一样的 数量也一样 通过改变产品名一样任意一行的数量 其他行 ...

b264689323

产品	配件	数量
产品1	配件1	100
产品2	配件2	200
产品3	配件3	100
产品4	配件4	100
产品5	配件5	100
产品2	配件6	200
产品2	配件7	200
产品2	配件8	200
产品9	配件9	100
产品10	配件10	350
产品11	配件11	350
产品12	配件12	350
产品13	配件13	350
产品14	配件14	350
产品4	配件15	100
产品4	配件16	100
产品4	配件17	100
产品4	配件18	100
	目的：   产品名一样的    数量也一样
		通过改变产品名一样任意一行的数量  其他行    同一产品名的数量一同改变

XIYANGYU

个人觉得你想要的这个逻辑可能没办法实现。
你想要的结果将输入数据和公式值混在一块了。

gdw831001

单元格事件解决

b264689323

公式函数肯定不行    问问VBA有没有办法  

b264689323

gdw831001 发表于 2018-6-23 14:37
单元格事件解决

怎么操作？

gdw831001

1. Option Explicit
   
2. Dim ar
   
3. 
   
4. Private Sub Worksheet_Change(ByVal Target As Range)
   
5.     Dim i, r, n, c, arr, t
   
6.     Application.EnableEvents = False
   
7.     Application.ScreenUpdating = False
   
8.     c = Target.Column
   
9.     r = Target.Row
   
10.     n = Range("a60000").End(3).Row
    
11.     If c = 3 And r > 1 Then
    
12.         arr = Range("a2:c" & n)
    
13.         For i = 1 To n - 1
    
14.             If Target.Offset(0, -2).Value & "@" & ar = arr(i, 1) & "@" & arr(i, 3) Then
    
15.                 Range("c" & i + 1) = Target.Value
    
16.             End If
    
17.         Next i
    
18.     End If
    
19.     [e1] = 4
    
20.     Application.ScreenUpdating = True
    
21.     Application.EnableEvents = True
    
22. End Sub
    
23. 
    
24. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
25.     Dim c, r
    
26.     Application.EnableEvents = False
    
27.     Application.ScreenUpdating = False
    
28.     c = Target.Column
    
29.     r = Target.Row
    
30.     If c = 3 And r > 1 Then
    
31.         ar = Target.Value
    
32.     End If
    
33.     Application.ScreenUpdating = True
    
34.     Application.EnableEvents = True
    
35. End Sub
    

复制代码

gdw831001

启用宏！！！！！！！！

b264689323

gdw831001 发表于 2018-6-25 13:05
启用宏！！！！！！！！

~~~小白一枚     我想更改数量这列的位置    比如说现在数量这列在C列    我想改到E列    怎么修改呢？