求大神帮帮忙！

不知道为什么

学生的方式的 发表于 2019-3-12 14:23
就是新的需求能帮忙修改下么

晚点把，现在有点忙，不好意思

学生的方式的

不知道为什么 发表于 2019-3-12 15:12
晚点把，现在有点忙，不好意思

好的谢谢了！

不知道为什么

学生的方式的 发表于 2019-3-12 20:17
好的谢谢了！

如图，依照你10楼的需求，重新优化了下代码。之前的代码有bug，如果辅食和米粉 同样代码出现一样的价格，反馈的结果是有问题的。

现在已经修正了。

不知道为什么

学生的方式的 发表于 2019-3-12 20:17
好的谢谢了！

附件送上，有用送花

学生的方式的

不知道为什么 发表于 2019-3-13 01:06
附件送上，有用送花表情

谢谢~~~~~~~~~~~

学生的方式的

不知道为什么 发表于 2019-3-12 15:12
晚点把，现在有点忙，不好意思

大神你能再帮我一个忙吗，帮忙把你写得代码和这段代码整合成一个，能简化的地方就给他简化一点

1. Sub DeleteEmptyRow()
   
2.     Dim i%
   
3.     Dim p%
   
4.     Dim g As Integer
   
5.    
   
6.    
   
7.    
   
8.    
   
9.     Sheets.Add.Name = "辅食大件"
   
10.     Sheets.Add.Name = "辅食小件"
    
11.     Sheets.Add.Name = "米粉"
    
12.     Sheets("sheet3").Range("B1:C1000").Copy ThisWorkbook.Sheets("米粉").Range("A2")
    
13.     Sheets("sheet3").Range("E1:F1000").Copy ThisWorkbook.Sheets("辅食小件").Range("A2")
    
14.     Sheets("sheet3").Range("H1:L1000").Copy ThisWorkbook.Sheets("辅食大件").Range("A2")
    
15.    
    
16.     'Application.DisplayAlerts = False
    
17.     'Sheets("Sheet3").Delete
    
18.    
    
19.     'Application.DisplayAlerts = True
    
20.    
    
21.    
    
22.    
    
23.     Sheets(1).Select
    
24.     Worksheets.Add '新建一个工作表
    
25.     Sheets(1).Name = "汇总工作表" '对新建工作表重命名
    
26.     For i = 2 To Sheets.Count 'For循环，遍历所有工作表
    
27.         Worksheets(i).Range("a1").CurrentRegion.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中
    
28.     Next
    
29.     With Worksheets("汇总工作表")
    
30.         
    
31.         '自动删除空行
    
32.         
    
33.         For g = 1000 To 1 Step -1
    
34.             If .Cells(g, 10) = "" Or .Cells(g, 10) = "库位" Then
    
35.                 .Rows(g).Delete
    
36.             End If
    
37.         Next g
    
38.         
    
39.         '自动删除空列和筛选的两行
    
40.         
    
41.         .Range("B:B,E:E").Delete
    
42.         .Range("a2:C" & Cells(Rows.Count, 5).End(3).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    
43.     End With
    
44.    
    
45.     '自动换行
    
46.    
    
47.    
    
48.     For p = 1 To 16000
    
49.         If Rows(p).RowHeight > 30 Then
    
50.             Rows(p).RowHeight = 15
    
51.         End If
    
52.     Next p
    
53.    
    
54.     '自动输公式
    
55.    
    
56.    
    
57.     n = [a65536].End(xlUp).Row
    
58.     [K1].Resize(n, 1).Formula = "=IF(IFERROR(VLOOKUP(C1,中谷签收!D:D,1,0),""中谷快运"")<>""中谷快运"",""中谷物流"",""中谷快运"")"
    
59.     [i1].Resize(n, 1).Formula = "=IF((LEFT(C1,4)&H1=""135201""),""产品"","""")&IF((LEFT(C1,4)&H1=""1352FJ""),""小听粉"","""")&IF((LEFT(C1,4)&H1=""H632FJ""),""小听粉"","""")&IF((LEFT(C1,4)&H1=""H63201""),""小听粉"","""")&IF((LEFT(C1,4)&H1=""121HFJ""),""赠品随货"","""")&IF((LEFT(C1,4)&H1=""121H01""),""赠品随货"","""")"
    
60.     [J1].Resize(n, 1).Formula = "=IF(H1=""01"",I1,"""")&IF(H1=""FJ"",I1,"""")"
    
61.    
    
62.     Cells.Select
    
63.     Cells.Copy
    
64.     Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    
65.    
    
66.    
    
67.    
    
68.     '自动米粉
    
69.    
    
70.    
    
71.    
    
72.    
    
73.    
    
74.     Sheets("辅食大件").Activate
    
75.     Sheets("辅食大件").Range("a1") = "辅助字符"
    
76.     Sheets("辅食大件").Columns("a:a").Select
    
77.     Sheets("辅食大件").Range("a1:a10000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    
78.     n = [a65536].End(xlUp).Row - 1
    
79.     Sheets("辅食大件").[c2].Resize(n, 1).Formula = "=SUMIF(a:a,a2,b:b)"
    
80.    
    
81.    
    
82.     Sheets("辅食小件").Activate
    
83.     Sheets("辅食小件").Range("a1") = "辅助字符"
    
84.     Sheets("辅食小件").Columns("a:a").Select
    
85.     Sheets("辅食小件").Range("a1:a10000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    
86.     n = [a65536].End(xlUp).Row - 1
    
87.     Sheets("辅食小件").[c2].Resize(n, 1).Formula = "=SUMIF(a:a,a2,b:b)"
    
88.    
    
89.    
    
90.     Sheets("米粉").Activate
    
91.     Sheets("米粉").Range("a1") = "辅助字符"
    
92.     Sheets("米粉").Columns("a:a").Select
    
93.     Sheets("米粉").Range("a1:a10000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    
94.     n = [a65536].End(xlUp).Row - 1
    
95.     Sheets("米粉").[c2].Resize(n, 1).Formula = "=SUMIF(a:a,a2,b:b)"
    
96.    
    
97. 
    
98. End Sub
    
99. 
    

复制代码

学生的方式的

不知道为什么 发表于 2019-3-13 01:06
附件送上，有用送花表情

附件。。。。。。。。

不知道为什么

学生的方式的 发表于 2019-3-13 12:01
附件。。。。。。。。

你这是欺负老实人啊，为什么一开始不把真实附件和完整需求说出来呢，这样是不是太折腾？

学生的方式的

不知道为什么 发表于 2019-3-13 12:18
你这是欺负老实人啊，为什么一开始不把真实附件和完整需求说出来呢，这样是不是太折腾？

不好意思，怪我没考虑周全。。。

学生的方式的

不知道为什么 发表于 2019-3-13 12:18
你这是欺负老实人啊，为什么一开始不把真实附件和完整需求说出来呢，这样是不是太折腾？

我问一下，如果辅食小件或者辅食大件其中一个是空白的怎么避免错误呢？