自动汇总模板_0.5mg苯噻啶片.

 

自动汇总模板_0.5mg苯噻啶片.xlsm

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103

Sub 按钮1_Click() Range("A1:G14").Value = Range("表1!A1:G14").Value Range("U3").Value = "=Right(表2!A3, 10)" Range("U4").Value = "=Right(表3!A3, 10)" Range("U5").Value = "=Right(表1!A3, 16)" Range("A3").Value = "=Left(表1!A3, 150)" Range("A3").Value = Range("A3").Value & "&" & Range("U5").Value & "&" & Range("U3").Value & "&" & Range("U4").Value Range("U3:U5").Value = ""   '截图生产日期前 Range("A4").Value = "=Left(表1!A4, 13)" Range("U1").Value = "=Right(表1!A4, 10)" Range("U2").Value = "=Right(表1!A5, 7)" Range("U3").Value = "=Right(表2!A4, 10)" Range("U4").Value = "=Right(表2!A5, 7)" Range("U5").Value = "=Right(表3!A4, 10)" Range("U6").Value = "=Right(表3!A5, 7)"     Range("A4").Value = Range("A4").Value & "：" & Range("U2").Value & "：" & Range("U1").Value & "     " & Range("U4").Value & "：" & Range("U3").Value & "     " & Range("U6").Value & "：" & Range("U5").Value Range("A5").Value = Range("A5").Value & "    " & Range("U4").Value & "   " & Range("U6").Value 'b11-13批号添加 Range("B11:B13").Value = Range("U2").Value & "    " & Range("U4").Value & "   " & Range("U6").Value Range("B14").Value = Range("表1!B14").Value & "    " & Range("U2").Value Range("B15").Value = Range("表2!B14").Value & "    " & Range("U4").Value Range("B16").Value = Range("表3!B14").Value & "    " & Range("U6").Value Range("C14:G14").Value = Range("表1!C14:G14").Value Range("C15:G15").Value = Range("表2!C14:G14").Value Range("C16:G15").Value = Range("表3!C14:G14").Value '17 Range("A17").Value = Range("表1!A15").Value 'Range("B11:B13").Value = Range("U2").Value & "    " & Range("U4").Value & "   " & Range("U6").Value Range("B17").Value = Range("表1!B15").Value & "    " & Range("U2").Value Range("B18").Value = Range("表2!B15").Value & "    " & Range("U4").Value Range("B19").Value = Range("表3!B15").Value & "    " & Range("U6").Value Range("C17:G17").Value = Range("表1!C15:G15").Value Range("C18:G18").Value = Range("表2!C15:G15").Value Range("C19:G19").Value = Range("表3!C15:G15").Value '20 Range("A20").Value = Range("表1!A16").Value 'Range("B11:B13").Value = Range("U2").Value & "    " & Range("U4").Value & "   " & Range("U6").Value Range("B20").Value = Range("表1!B16").Value & "    " & Range("U2").Value Range("B21").Value = Range("表1!B17").Value & "    " & Range("U2").Value Range("B22").Value = Range("表1!B18").Value & "    " & Range("U2").Value Range("B23").Value = Range("表2!B16").Value & "    " & Range("U4").Value Range("B24").Value = Range("表2!B17").Value & "    " & Range("U4").Value Range("B25").Value = Range("表2!B18").Value & "    " & Range("U4").Value Range("B26").Value = Range("表3!B16").Value & "    " & Range("U6").Value Range("B27").Value = Range("表3!B17").Value & "    " & Range("U6").Value Range("B28").Value = Range("表3!B18").Value & "    " & Range("U6").Value Range("C20:G22").Value = Range("表1!C16:G18").Value Range("C23:G25").Value = Range("表2!C16:G18").Value Range("C26:G28").Value = Range("表3!C16:G18").Value '29-31 Range("A29").Value = Range("表1!A19").Value 'Range("B11:B13").Value = Range("U2").Value & "    " & Range("U4").Value & "   " & Range("U6").Value Range("B29").Value = Range("表1!B19").Value & "    " & Range("U2").Value Range("B30").Value = Range("表2!B19").Value & "    " & Range("U4").Value Range("B31").Value = Range("表3!B19").Value & "    " & Range("U6").Value Range("C29:G29").Value = Range("表1!C19:G19").Value Range("C30:G30").Value = Range("表2!C19:G19").Value Range("C31:G31").Value = Range("表3!C19:G19").Value '32-34 Range("A32").Value = Range("表1!A20").Value 'Range("B11:B13").Value = Range("U2").Value & "    " & Range("U4").Value & "   " & Range("U6").Value Range("B32").Value = Range("表1!B20").Value & "    " & Range("U2").Value Range("B33").Value = Range("表2!B20").Value & "    " & Range("U4").Value Range("B34").Value = Range("表3!B20").Value & "    " & Range("U6").Value Range("C32:G32").Value = Range("表1!C20:G20").Value Range("C33:G33").Value = Range("表2!C20:G20").Value Range("C34:G34").Value = Range("表3!C20:G20").Value '35 Range("A35").Value = Range("表1!A21").Value '36-37 Range("A36:G37").Value = Range("表1!A22:G23").Value Range("B36").Value = Range("B36").Value & "    " & Range("U2").Value Range("B37").Value = Range("B37").Value & "    " & Range("U2").Value '38-39 Range("A38:G39").Value = Range("表2!A22:G23").Value Range("B38").Value = Range("B38").Value & "    " & Range("U4").Value Range("B39").Value = Range("B39").Value & "    " & Range("U4").Value '40-41 Range("A40:G41").Value = Range("表3!A22:G23").Value Range("B40").Value = Range("B40").Value & "    " & Range("U6").Value Range("B41").Value = Range("B41").Value & "    " & Range("U6").Value '42 Range("A42").Value = Range("表1!A24").Value '43 Range("A43:G43").Value = Range("表1!A25:G25").Value Range("B43").Value = Range("B43").Value & "  " & Range("U2").Value & "  " & Range("U4").Value & " " & Range("U6").Value '44 Range("A44:G44").Value = Range("表1!A26:G26").Value Range("B44").Value = Range("B44").Value & "  " & Range("U2").Value & "  " & Range("U4").Value & " " & Range("U6").Value '45 Range("A45:G45").Value = Range("表1!A27:G27").Value Range("B45").Value = Range("U2").Value & "  " & Range("U4").Value & " " & Range("U6").Value '46-52 Range("A46:G52").Value = Range("表1!A28:G34").Value   Range("U1:U6").Value = "" 'Range("A3").Formula = Range("A3").Formula & aa 'Range("A3").Formula = Range("A3").Formula & Right("表2!A3", 10) End Sub