QC_稳定性VBA代码存档

 

 

Sub 宏2()
'
' 宏2 宏
Range("A1:A3").Value = Range("表1!A1:A3").Value
Range("E3").Value = Range("表1!G3").Value
Range("F3").Value = Range("表1!H3").Value & " & " & Range("表2!H3").Value & " & " & Range("表3!H3").Value
'生产日期
Range("A4").Value = "生产日期Mfg.date：" & Range("表1!B5").Value & "　" & Range("表1!B4").Value & " ： " & Range("表2!B5").Value & "　" & Range("表2!B4").Value & " ： " & Range("表3!B5").Value & "　" & Range("表3!B4").Value
'批号
Range("A5").Value = "批号Batch number：" & Range("表1!B5").Value & "　" & Range("表2!B5").Value & "　" & Range("表3!B5").Value
Range("A6:A8").Value = Range("表1!A6:A8").Value
Range("A9").Value = "稳定性试验开始日期Stability initiated on：" & Range("表1!B5").Value & "：" & Range("表1!B4").Value & "　" & Range("表2!B5").Value & " ： " & Range("表2!B4").Value & "　 " & Range("表3!B5").Value & " ： " & Range("表3!B4").Value
Range("A10:J10").Value = Range("表1!A10:J10").Value
Range("A11").Value = Range("表1!A11").Value
Range("B11").Value = Range("表1!B5").Value
Range("B12").Value = Range("表2!B5").Value
Range("B13").Value = Range("表3!B5").Value
Range("C11").Value = Range("表1!C11").Value
Range("C12").Value = Range("表2!C11").Value
Range("C13").Value = Range("表3!C11").Value
Range("D11").Value = Range("表1!D11").Value
Range("D12").Value = Range("表2!D11").Value
Range("D13").Value = Range("表3!D11").Value
Range("E11").Value = Range("表1!E11").Value
Range("E12").Value = Range("表2!E11").Value
Range("E13").Value = Range("表3!E11").Value
Range("F11").Value = Range("表1!F11").Value
Range("F12").Value = Range("表2!F11").Value
Range("F13").Value = Range("表3!F11").Value
Range("G11").Value = Range("表1!G11").Value
Range("G12").Value = Range("表2!G11").Value
Range("G13").Value = Range("表3!G11").Value
Range("H11").Value = Range("表1!H11").Value
Range("H12").Value = Range("表2!H11").Value
Range("H13").Value = Range("表3!H11").Value
Range("I11").Value = Range("表1!I11").Value
Range("I12").Value = Range("表2!I11").Value
Range("I13").Value = Range("表3!I11").Value
Range("J11").Value = Range("表1!J11").Value
Range("J12").Value = Range("表2!J11").Value
Range("J13").Value = Range("表3!J11").Value
''
'性状Description（White round tablets with “P” engraved on one side and “2”  engraved on the other side.)'
''
Range("A14").Value = Range("表1!A12").Value
Range("B14").Value = Range("表1!B5").Value
Range("B15").Value = Range("表2!B5").Value
Range("B16").Value = Range("表3!B5").Value
Range("C14").Value = Range("表1!C12").Value
Range("C15").Value = Range("表2!C12").Value
Range("C16").Value = Range("表3!C12").Value
Range("D14").Value = Range("表1!D12").Value
Range("D15").Value = Range("表2!D12").Value
Range("D16").Value = Range("表3!D12").Value
Range("E14").Value = Range("表1!E12").Value
Range("E15").Value = Range("表2!E12").Value
Range("E16").Value = Range("表3!E12").Value
Range("F14").Value = Range("表1!F12").Value
Range("F15").Value = Range("表2!F12").Value
Range("F16").Value = Range("表3!F12").Value
Range("G14").Value = Range("表1!G12").Value
Range("G15").Value = Range("表2!G12").Value
Range("G16").Value = Range("表3!G12").Value
Range("H14").Value = Range("表1!H12").Value
Range("H15").Value = Range("表2!H12").Value
Range("H16").Value = Range("表3!H12").Value
Range("I14").Value = Range("表1!I12").Value
Range("I15").Value = Range("表2!I12").Value
Range("I16").Value = Range("表3!I12").Value
Range("J14").Value = Range("表1!J12").Value
Range("J15").Value = Range("表2!J12").Value
Range("J16").Value = Range("表3!J12").Value
''
'鉴别：IR:The infrared absorption spectrum of the residue is concordant with the reference spectrum of Prednisolone (RS 282)'
''
Range("A17").Value = Range("表1!A13").Value
Range("B17").Value = Range("表1!B5").Value
Range("B18").Value = Range("表2!B5").Value
Range("B19").Value = Range("表3!B5").Value
Range("C17").Value = Range("表1!C13").Value
Range("C18").Value = Range("表2!C13").Value
Range("C19").Value = Range("表3!C13").Value
Range("D17").Value = Range("表1!D13").Value
Range("D18").Value = Range("表2!D13").Value
Range("D19").Value = Range("表3!D13").Value
Range("E17").Value = Range("表1!E13").Value
Range("E18").Value = Range("表2!E13").Value
Range("E19").Value = Range("表3!E13").Value
Range("F17").Value = Range("表1!F13").Value
Range("F18").Value = Range("表2!F13").Value
Range("F19").Value = Range("表3!F13").Value
Range("G17").Value = Range("表1!G13").Value
Range("G18").Value = Range("表2!G13").Value
Range("G19").Value = Range("表3!G13").Value
Range("H17").Value = Range("表1!H13").Value
Range("H18").Value = Range("表2!H13").Value
Range("H19").Value = Range("表3!H13").Value
Range("I17").Value = Range("表1!I13").Value
Range("I18").Value = Range("表2!I13").Value
Range("I19").Value = Range("表3!I13").Value
Range("J17").Value = Range("表1!J13").Value
Range("J18").Value = Range("表2!J13").Value
Range("J19").Value = Range("表3!J13").Value
''
'鉴别：Identification of steroids:Complies with the identification of steroids test.'
''
Range("A20").Value = Range("表1!A14").Value
Range("B20").Value = Range("表1!B5").Value
Range("B21").Value = Range("表2!B5").Value
Range("B22").Value = Range("表3!B5").Value
Range("C20").Value = Range("表1!C14").Value
Range("C21").Value = Range("表2!C14").Value
Range("C22").Value = Range("表3!C14").Value
Range("D20").Value = Range("表1!D14").Value
Range("D21").Value = Range("表2!D14").Value
Range("D22").Value = Range("表3!D14").Value
Range("E20").Value = Range("表1!E14").Value
Range("E21").Value = Range("表2!E14").Value
Range("E22").Value = Range("表3!E14").Value
Range("F20").Value = Range("表1!F14").Value
Range("F21").Value = Range("表2!F14").Value
Range("F22").Value = Range("表3!F14").Value
Range("G20").Value = Range("表1!G14").Value
Range("G21").Value = Range("表2!G14").Value
Range("G22").Value = Range("表3!G14").Value
Range("H20").Value = Range("表1!H14").Value
Range("H21").Value = Range("表2!H14").Value
Range("H22").Value = Range("表3!H14").Value
Range("I20").Value = Range("表1!I14").Value
Range("I21").Value = Range("表2!I14").Value
Range("I22").Value = Range("表3!I14").Value
Range("J20").Value = Range("表1!J14").Value
Range("J21").Value = Range("表2!J14").Value
Range("J22").Value = Range("表3!J14").Value
''
'片厚Thickness : 记录To record'
''
Range("A23").Value = Range("表1!A15").Value
Range("B23").Value = Range("表1!B5").Value
Range("B24").Value = Range("表2!B5").Value
Range("B25").Value = Range("表3!B5").Value
Range("C23").Value = Range("表1!C15").Value
Range("C24").Value = Range("表2!C15").Value
Range("C25").Value = Range("表3!C15").Value
Range("D23").Value = Range("表1!D15").Value
Range("D24").Value = Range("表2!D15").Value
Range("D25").Value = Range("表3!D15").Value
Range("E23").Value = Range("表1!E15").Value
Range("E24").Value = Range("表2!E15").Value
Range("E25").Value = Range("表3!E15").Value
Range("F23").Value = Range("表1!F15").Value
Range("F24").Value = Range("表2!F15").Value
Range("F25").Value = Range("表3!F15").Value
Range("G23").Value = Range("表1!G15").Value
Range("G24").Value = Range("表2!G15").Value
Range("G25").Value = Range("表3!G15").Value
Range("H23").Value = Range("表1!H15").Value
Range("H24").Value = Range("表2!H15").Value
Range("H25").Value = Range("表3!H15").Value
Range("I23").Value = Range("表1!I15").Value
Range("I24").Value = Range("表2!I15").Value
Range("I25").Value = Range("表3!I15").Value
Range("J23").Value = Range("表1!J15").Value
Range("J24").Value = Range("表2!J15").Value
Range("J25").Value = Range("表3!J15").Value
''
''
'直径Diameter:5.50 ±0.20mm'
''
Range("A26").Value = Range("表1!A16").Value
Range("B26").Value = Range("表1!B16").Value & " " & Range("表1!B5").Value
Range("B27").Value = Range("表2!B16").Value & " " & Range("表2!B5").Value
Range("B28").Value = Range("表3!B16").Value & " " & Range("表3!B5").Value
Range("C26").Value = Range("表1!C16").Value
Range("C27").Value = Range("表2!C16").Value
Range("C28").Value = Range("表3!C16").Value
Range("D26").Value = Range("表1!D16").Value
Range("D27").Value = Range("表2!D16").Value
Range("D28").Value = Range("表3!D16").Value
Range("E26").Value = Range("表1!E16").Value
Range("E27").Value = Range("表2!E16").Value
Range("E28").Value = Range("表3!E16").Value
Range("F26").Value = Range("表1!F16").Value
Range("F27").Value = Range("表2!F16").Value
Range("F28").Value = Range("表3!F16").Value
Range("G26").Value = Range("表1!G16").Value
Range("G27").Value = Range("表2!G16").Value
Range("G28").Value = Range("表3!G16").Value
Range("H26").Value = Range("表1!H16").Value
Range("H27").Value = Range("表2!H16").Value
Range("H28").Value = Range("表3!H16").Value
Range("I26").Value = Range("表1!I16").Value
Range("I27").Value = Range("表2!I16").Value
Range("I28").Value = Range("表3!I16").Value
Range("J26").Value = Range("表1!J16").Value
Range("J27").Value = Range("表2!J16").Value
Range("J28").Value = Range("表3!J16").Value
''
''
'平均片重Average weight：80mg（77-83mg）'
''
Range("A29").Value = Range("表1!A17").Value
Range("B29").Value = Range("表1!B17").Value & " " & Range("表1!B5").Value
Range("B30").Value = Range("表2!B17").Value & " " & Range("表2!B5").Value
Range("B31").Value = Range("表3!B17").Value & " " & Range("表3!B5").Value
Range("C29").Value = Range("表1!C17").Value
Range("C30").Value = Range("表2!C17").Value
Range("C31").Value = Range("表3!C17").Value
Range("D29").Value = Range("表1!D17").Value
Range("D30").Value = Range("表2!D17").Value
Range("D31").Value = Range("表3!D17").Value
Range("E29").Value = Range("表1!E17").Value
Range("E30").Value = Range("表2!E17").Value
Range("E31").Value = Range("表3!E17").Value
Range("F29").Value = Range("表1!F17").Value
Range("F30").Value = Range("表2!F17").Value
Range("F31").Value = Range("表3!F17").Value
Range("G29").Value = Range("表1!G17").Value
Range("G30").Value = Range("表2!G17").Value
Range("G31").Value = Range("表3!G17").Value
Range("H29").Value = Range("表1!H17").Value
Range("H30").Value = Range("表2!H17").Value
Range("H31").Value = Range("表3!H17").Value
Range("I29").Value = Range("表1!I17").Value
Range("I30").Value = Range("表2!I17").Value
Range("I31").Value = Range("表3!I17").Value
Range("J29").Value = Range("表1!J17").Value
Range("J30").Value = Range("表2!J17").Value
Range("J31").Value = Range("表3!J17").Value
''
''
'重量差异Weight uniformity  （NMT±10% EP）'
''
Range("A32").Value = Range("表1!A18").Value
Range("B32").Value = Range("表1!B18").Value & " " & Range("表1!B5").Value
Range("B33").Value = Range("表2!B18").Value & " " & Range("表2!B5").Value
Range("B34").Value = Range("表3!B18").Value & " " & Range("表3!B5").Value
Range("C32").Value = Range("表1!C18").Value
Range("C33").Value = Range("表2!C18").Value
Range("C34").Value = Range("表3!C18").Value
Range("D32").Value = Range("表1!D18").Value
Range("D33").Value = Range("表2!D18").Value
Range("D34").Value = Range("表3!D18").Value
Range("E32").Value = Range("表1!E18").Value
Range("E33").Value = Range("表2!E18").Value
Range("E34").Value = Range("表3!E18").Value
Range("F32").Value = Range("表1!F18").Value
Range("F33").Value = Range("表2!F18").Value
Range("F34").Value = Range("表3!F18").Value
Range("G32").Value = Range("表1!G18").Value
Range("G33").Value = Range("表2!G18").Value
Range("G34").Value = Range("表3!G18").Value
Range("H32").Value = Range("表1!H18").Value
Range("H33").Value = Range("表2!H18").Value
Range("H34").Value = Range("表3!H18").Value
Range("I32").Value = Range("表1!I18").Value
Range("I33").Value = Range("表2!I18").Value
Range("I34").Value = Range("表3!I18").Value
Range("J32").Value = Range("表1!J18").Value
Range("J33").Value = Range("表2!J18").Value
Range("J34").Value = Range("表3!J18").Value
''
''
'硬度Hardness :NLT 2.0KP '
''
Range("A35").Value = Range("表1!A19").Value
Range("B35").Value = Range("表1!B19").Value & " " & Range("表1!B5").Value
Range("B36").Value = Range("表1!B20").Value & " " & Range("表1!B5").Value
Range("B37").Value = Range("表1!B21").Value & " " & Range("表1!B5").Value
Range("B38").Value = Range("表2!B19").Value & " " & Range("表2!B5").Value
Range("B39").Value = Range("表2!B20").Value & " " & Range("表2!B5").Value
Range("B40").Value = Range("表2!B21").Value & " " & Range("表2!B5").Value
Range("B41").Value = Range("表3!B19").Value & " " & Range("表3!B5").Value
Range("B42").Value = Range("表3!B20").Value & " " & Range("表3!B5").Value
Range("B43").Value = Range("表3!B21").Value & " " & Range("表3!B5").Value
Range("C35").Value = Range("表1!C19").Value
Range("C36").Value = Range("表1!C20").Value
Range("C37").Value = Range("表1!C21").Value
Range("C38").Value = Range("表2!C19").Value
Range("C39").Value = Range("表2!C20").Value
Range("C40").Value = Range("表2!C21").Value
Range("C41").Value = Range("表3!C19").Value
Range("C42").Value = Range("表3!C20").Value
Range("C43").Value = Range("表3!C21").Value
''
Range("D35").Value = Range("表1!D19").Value
Range("D36").Value = Range("表1!D20").Value
Range("D37").Value = Range("表1!D21").Value
Range("D38").Value = Range("表2!D19").Value
Range("D39").Value = Range("表2!D20").Value
Range("D40").Value = Range("表2!D21").Value
Range("D41").Value = Range("表3!D19").Value
Range("D42").Value = Range("表3!D20").Value
Range("D43").Value = Range("表3!D21").Value

Range("E35").Value = Range("表1!E19").Value
Range("E36").Value = Range("表1!E20").Value
Range("E37").Value = Range("表1!E21").Value
Range("E38").Value = Range("表2!E19").Value
Range("E39").Value = Range("表2!E20").Value
Range("E40").Value = Range("表2!E21").Value
Range("E41").Value = Range("表3!E19").Value
Range("E42").Value = Range("表3!E20").Value
Range("E43").Value = Range("表3!E21").Value

Range("F35").Value = Range("表1!F19").Value
Range("F36").Value = Range("表1!F20").Value
Range("F37").Value = Range("表1!F21").Value
Range("F38").Value = Range("表2!F19").Value
Range("F39").Value = Range("表2!F20").Value
Range("F40").Value = Range("表2!F21").Value
Range("F41").Value = Range("表3!F19").Value
Range("F42").Value = Range("表3!F20").Value
Range("F43").Value = Range("表3!F21").Value

Range("G35").Value = Range("表1!G19").Value
Range("G36").Value = Range("表1!G20").Value
Range("G37").Value = Range("表1!G21").Value
Range("G38").Value = Range("表2!G19").Value
Range("G39").Value = Range("表2!G20").Value
Range("G40").Value = Range("表2!G21").Value
Range("G41").Value = Range("表3!G19").Value
Range("G42").Value = Range("表3!G20").Value
Range("G43").Value = Range("表3!G21").Value

Range("H35").Value = Range("表1!H19").Value
Range("H36").Value = Range("表1!H20").Value
Range("H37").Value = Range("表1!H21").Value
Range("H38").Value = Range("表2!H19").Value
Range("H39").Value = Range("表2!H20").Value
Range("H40").Value = Range("表2!H21").Value
Range("H41").Value = Range("表3!H19").Value
Range("H42").Value = Range("表3!H20").Value
Range("H43").Value = Range("表3!H21").Value

Range("I35").Value = Range("表1!I19").Value
Range("I36").Value = Range("表1!I20").Value
Range("I37").Value = Range("表1!I21").Value
Range("I38").Value = Range("表2!I19").Value
Range("I39").Value = Range("表2!I20").Value
Range("I40").Value = Range("表2!I21").Value
Range("I41").Value = Range("表3!I19").Value
Range("I42").Value = Range("表3!I20").Value
Range("I43").Value = Range("表3!I21").Value

Range("J35").Value = Range("表1!J19").Value
Range("J36").Value = Range("表1!J20").Value
Range("J37").Value = Range("表1!J21").Value
Range("J38").Value = Range("表2!J19").Value
Range("J39").Value = Range("表2!J20").Value
Range("J40").Value = Range("表2!J21").Value
Range("J41").Value = Range("表3!J19").Value
Range("J42").Value = Range("表3!J20").Value
Range("J43").Value = Range("表3!J21").Value
''
''
'崩解时限Disintegration time：10 minutes maximum'
''
Range("A44").Value = Range("表1!A22").Value
Range("B44").Value = Range("表1!B5").Value
Range("B45").Value = Range("表2!B5").Value
Range("B46").Value = Range("表3!B5").Value
Range("C44").Value = Range("表1!C22").Value
Range("C45").Value = Range("表2!C22").Value
Range("C46").Value = Range("表3!C22").Value
Range("D44").Value = Range("表1!D22").Value
Range("D45").Value = Range("表2!D22").Value
Range("D46").Value = Range("表3!D22").Value
Range("E44").Value = Range("表1!E22").Value
Range("E45").Value = Range("表2!E22").Value
Range("E46").Value = Range("表3!E22").Value
Range("F44").Value = Range("表1!F22").Value
Range("F45").Value = Range("表2!F22").Value
Range("F46").Value = Range("表3!F22").Value
Range("G44").Value = Range("表1!G22").Value
Range("G45").Value = Range("表2!G22").Value
Range("G46").Value = Range("表3!G22").Value
Range("H44").Value = Range("表1!H22").Value
Range("H45").Value = Range("表2!H22").Value
Range("H46").Value = Range("表3!H22").Value
Range("I44").Value = Range("表1!I22").Value
Range("I45").Value = Range("表2!I22").Value
Range("I46").Value = Range("表3!I22").Value
Range("J44").Value = Range("表1!J22").Value
Range("J45").Value = Range("表2!J22").Value
Range("J46").Value = Range("表3!J22").Value
''
''
'脆碎度Friability：1% maximum'
''
Range("A47").Value = Range("表1!A23").Value
Range("B47").Value = Range("表1!B23").Value & " " & Range("表1!B5").Value
Range("B48").Value = Range("表2!B23").Value & " " & Range("表2!B5").Value
Range("B49").Value = Range("表3!B23").Value & " " & Range("表3!B5").Value
Range("C47").Value = Range("表1!C23").Value
Range("C48").Value = Range("表2!C23").Value
Range("C49").Value = Range("表3!C23").Value
Range("D47").Value = Range("表1!D23").Value
Range("D48").Value = Range("表2!D23").Value
Range("D49").Value = Range("表3!D23").Value
Range("E47").Value = Range("表1!E23").Value
Range("E48").Value = Range("表2!E23").Value
Range("E49").Value = Range("表3!E23").Value
Range("F47").Value = Range("表1!F23").Value
Range("F48").Value = Range("表2!F23").Value
Range("F49").Value = Range("表3!F23").Value
Range("G47").Value = Range("表1!G23").Value
Range("G48").Value = Range("表2!G23").Value
Range("G49").Value = Range("表3!G23").Value
Range("H47").Value = Range("表1!H23").Value
Range("H48").Value = Range("表2!H23").Value
Range("H49").Value = Range("表3!H23").Value
Range("I47").Value = Range("表1!I23").Value
Range("I48").Value = Range("表2!I23").Value
Range("I49").Value = Range("表3!I23").Value
Range("J47").Value = Range("表1!J23").Value
Range("J48").Value = Range("表2!J23").Value
Range("J49").Value = Range("表3!J23").Value
''
''
'单剂量均匀度Uniformity of dosage units:Comply with Ph.Eur.2.9.40'
''
Range("A50").Value = Range("表1!A24").Value
Range("B50").Value = Range("表1!B5").Value
Range("B51").Value = Range("表2!B5").Value
Range("B52").Value = Range("表3!B5").Value
Range("C50").Value = Range("表1!C24").Value
Range("C51").Value = Range("表2!C24").Value
Range("C52").Value = Range("表3!C24").Value
Range("D50").Value = Range("表1!D24").Value
Range("D51").Value = Range("表2!D24").Value
Range("D52").Value = Range("表3!D24").Value
Range("E50").Value = Range("表1!E24").Value
Range("E51").Value = Range("表2!E24").Value
Range("E52").Value = Range("表3!E24").Value
Range("F50").Value = Range("表1!F24").Value
Range("F51").Value = Range("表2!F24").Value
Range("F52").Value = Range("表3!F24").Value
Range("G50").Value = Range("表1!G24").Value
Range("G51").Value = Range("表2!G24").Value
Range("G52").Value = Range("表3!G24").Value
Range("H50").Value = Range("表1!H24").Value
Range("H51").Value = Range("表2!H24").Value
Range("H52").Value = Range("表3!H24").Value
Range("I50").Value = Range("表1!I24").Value
Range("I51").Value = Range("表2!I24").Value
Range("I52").Value = Range("表3!I24").Value
Range("J50").Value = Range("表1!J24").Value
Range("J51").Value = Range("表2!J24").Value
Range("J52").Value = Range("表3!J24").Value
''
''
'溶出度Dissolution:85%minimum release in 15 minutes'
''
Range("A53").Value = Range("表1!A25").Value
Range("B53").Value = Range("表1!B25").Value & " " & Range("表1!B5").Value
Range("B54").Value = Range("表1!B26").Value & " " & Range("表1!B5").Value
Range("B55").Value = Range("表1!B27").Value & " " & Range("表1!B5").Value
Range("B56").Value = Range("表2!B25").Value & " " & Range("表2!B5").Value
Range("B57").Value = Range("表2!B26").Value & " " & Range("表2!B5").Value
Range("B58").Value = Range("表2!B27").Value & " " & Range("表2!B5").Value
Range("B59").Value = Range("表3!B25").Value & " " & Range("表3!B5").Value
Range("B60").Value = Range("表3!B26").Value & " " & Range("表3!B5").Value
Range("B61").Value = Range("表3!B27").Value & " " & Range("表3!B5").Value
Range("C53").Value = Range("表1!C25").Value
Range("C54").Value = Range("表1!C26").Value
Range("C55").Value = Range("表1!C27").Value
Range("C56").Value = Range("表2!C25").Value
Range("C57").Value = Range("表2!C26").Value
Range("C58").Value = Range("表2!C27").Value
Range("C59").Value = Range("表3!C25").Value
Range("C60").Value = Range("表3!C26").Value
Range("C61").Value = Range("表3!C27").Value
''
Range("D53").Value = Range("表1!D25").Value
Range("D54").Value = Range("表1!D26").Value
Range("D55").Value = Range("表1!D27").Value
Range("D56").Value = Range("表2!D25").Value
Range("D57").Value = Range("表2!D26").Value
Range("D58").Value = Range("表2!D27").Value
Range("D59").Value = Range("表3!D25").Value
Range("D60").Value = Range("表3!D26").Value
Range("D61").Value = Range("表3!D27").Value

Range("E53").Value = Range("表1!E25").Value
Range("E54").Value = Range("表1!E26").Value
Range("E55").Value = Range("表1!E27").Value
Range("E56").Value = Range("表2!E25").Value
Range("E57").Value = Range("表2!E26").Value
Range("E58").Value = Range("表2!E27").Value
Range("E59").Value = Range("表3!E25").Value
Range("E60").Value = Range("表3!E26").Value
Range("E61").Value = Range("表3!E27").Value

Range("F53").Value = Range("表1!F25").Value
Range("F54").Value = Range("表1!F26").Value
Range("F55").Value = Range("表1!F27").Value
Range("F56").Value = Range("表2!F25").Value
Range("F57").Value = Range("表2!F26").Value
Range("F58").Value = Range("表2!F27").Value
Range("F59").Value = Range("表3!F25").Value
Range("F60").Value = Range("表3!F26").Value
Range("F61").Value = Range("表3!F27").Value

Range("G53").Value = Range("表1!G25").Value
Range("G54").Value = Range("表1!G26").Value
Range("G55").Value = Range("表1!G27").Value
Range("G56").Value = Range("表2!G25").Value
Range("G57").Value = Range("表2!G26").Value
Range("G58").Value = Range("表2!G27").Value
Range("G59").Value = Range("表3!G25").Value
Range("G60").Value = Range("表3!G26").Value
Range("G61").Value = Range("表3!G27").Value

Range("H53").Value = Range("表1!H25").Value
Range("H54").Value = Range("表1!H26").Value
Range("H55").Value = Range("表1!H27").Value
Range("H56").Value = Range("表2!H25").Value
Range("H57").Value = Range("表2!H26").Value
Range("H58").Value = Range("表2!H27").Value
Range("H59").Value = Range("表3!H25").Value
Range("H60").Value = Range("表3!H26").Value
Range("H61").Value = Range("表3!H27").Value

Range("I53").Value = Range("表1!I25").Value
Range("I54").Value = Range("表1!I26").Value
Range("I55").Value = Range("表1!I27").Value
Range("I56").Value = Range("表2!I25").Value
Range("I57").Value = Range("表2!I26").Value
Range("I58").Value = Range("表2!I27").Value
Range("I59").Value = Range("表3!I25").Value
Range("I60").Value = Range("表3!I26").Value
Range("I61").Value = Range("表3!I27").Value

Range("J53").Value = Range("表1!J25").Value
Range("J54").Value = Range("表1!J26").Value
Range("J55").Value = Range("表1!J27").Value
Range("J56").Value = Range("表2!J25").Value
Range("J57").Value = Range("表2!J26").Value
Range("J58").Value = Range("表2!J27").Value
Range("J59").Value = Range("表3!J25").Value
Range("J60").Value = Range("表3!J26").Value
Range("J61").Value = Range("表3!J27").Value
''
''
''
'含量Assay :95.0-105.0% '
''
Range("A62").Value = Range("表1!A28").Value
Range("B62").Value = Range("表1!B28").Value & " " & Range("表1!B5").Value
Range("B63").Value = Range("表2!B28").Value & " " & Range("表2!B5").Value
Range("B64").Value = Range("表3!B28").Value & " " & Range("表3!B5").Value
Range("C62").Value = Range("表1!C28").Value
Range("C63").Value = Range("表2!C28").Value
Range("C64").Value = Range("表3!C28").Value
Range("D62").Value = Range("表1!D28").Value
Range("D63").Value = Range("表2!D28").Value
Range("D64").Value = Range("表3!D28").Value
Range("E62").Value = Range("表1!E28").Value
Range("E63").Value = Range("表2!E28").Value
Range("E64").Value = Range("表3!E28").Value
Range("F62").Value = Range("表1!F28").Value
Range("F63").Value = Range("表2!F28").Value
Range("F64").Value = Range("表3!F28").Value
Range("G62").Value = Range("表1!G28").Value
Range("G63").Value = Range("表2!G28").Value
Range("G64").Value = Range("表3!G28").Value
Range("H62").Value = Range("表1!H28").Value
Range("H63").Value = Range("表2!H28").Value
Range("H64").Value = Range("表3!H28").Value
Range("I62").Value = Range("表1!I28").Value
Range("I63").Value = Range("表2!I28").Value
Range("I64").Value = Range("表3!I28").Value
Range("J62").Value = Range("表1!J28").Value
Range("J63").Value = Range("表2!J28").Value
Range("J64").Value = Range("表3!J28").Value
''
Range("A65").Value = Range("表1!A29").Value
''
''
'Any individual impurity：NMT1% '
''
Range("A66").Value = Range("表1!A30").Value
Range("B66").Value = Range("表1!B30").Value & " " & Range("表1!B5").Value
Range("B67").Value = Range("表2!B30").Value & " " & Range("表2!B5").Value
Range("B68").Value = Range("表3!B30").Value & " " & Range("表3!B5").Value
Range("C66").Value = Range("表1!C30").Value
Range("C67").Value = Range("表2!C30").Value
Range("C68").Value = Range("表3!C30").Value
Range("D66").Value = Range("表1!D30").Value
Range("D67").Value = Range("表2!D30").Value
Range("D68").Value = Range("表3!D30").Value
Range("E66").Value = Range("表1!E30").Value
Range("E67").Value = Range("表2!E30").Value
Range("E68").Value = Range("表3!E30").Value
Range("F66").Value = Range("表1!F30").Value
Range("F67").Value = Range("表2!F30").Value
Range("F68").Value = Range("表3!F30").Value
Range("G66").Value = Range("表1!G30").Value
Range("G67").Value = Range("表2!G30").Value
Range("G68").Value = Range("表3!G30").Value
Range("H66").Value = Range("表1!H30").Value
Range("H67").Value = Range("表2!H30").Value
Range("H68").Value = Range("表3!H30").Value
Range("I66").Value = Range("表1!I30").Value
Range("I67").Value = Range("表2!I30").Value
Range("I68").Value = Range("表3!I30").Value
Range("J66").Value = Range("表1!J30").Value
Range("J67").Value = Range("表2!J30").Value
Range("J68").Value = Range("表3!J30").Value
''
''
'Total impurities：NMT3% '
''
Range("A69").Value = Range("表1!A31").Value
Range("B69").Value = Range("表1!B31").Value & " " & Range("表1!B5").Value
Range("B70").Value = Range("表2!B31").Value & " " & Range("表2!B5").Value
Range("B71").Value = Range("表3!B31").Value & " " & Range("表3!B5").Value
Range("C69").Value = Range("表1!C31").Value
Range("C70").Value = Range("表2!C31").Value
Range("C71").Value = Range("表3!C31").Value
Range("D69").Value = Range("表1!D31").Value
Range("D70").Value = Range("表2!D31").Value
Range("D71").Value = Range("表3!D31").Value
Range("E69").Value = Range("表1!E31").Value
Range("E70").Value = Range("表2!E31").Value
Range("E71").Value = Range("表3!E31").Value
Range("F69").Value = Range("表1!F31").Value
Range("F70").Value = Range("表2!F31").Value
Range("F71").Value = Range("表3!F31").Value
Range("G69").Value = Range("表1!G31").Value
Range("G70").Value = Range("表2!G31").Value
Range("G71").Value = Range("表3!G31").Value
Range("H69").Value = Range("表1!H31").Value
Range("H70").Value = Range("表2!H31").Value
Range("H71").Value = Range("表3!H31").Value
Range("I69").Value = Range("表1!I31").Value
Range("I70").Value = Range("表2!I31").Value
Range("I71").Value = Range("表3!I31").Value
Range("J69").Value = Range("表1!J31").Value
Range("J70").Value = Range("表2!J31").Value
Range("J71").Value = Range("表3!J31").Value
''
''
Range("A72").Value = Range("表1!A32").Value

''





''
''
'TAMC: NMT 103 cfu/g'
''
Range("A73").Value = Range("表1!A33").Value
Range("B73").Value = Range("表1!B33").Value & " " & Range("表1!B5").Value
Range("B74").Value = Range("表2!B33").Value & " " & Range("表2!B5").Value
Range("B75").Value = Range("表3!B33").Value & " " & Range("表3!B5").Value
Range("C73").Value = Range("表1!C33").Value
Range("C74").Value = Range("表2!C33").Value
Range("C75").Value = Range("表3!C33").Value
Range("D73").Value = Range("表1!D33").Value
Range("D74").Value = Range("表2!D33").Value
Range("D75").Value = Range("表3!D33").Value
Range("E73").Value = Range("表1!E33").Value
Range("E74").Value = Range("表2!E33").Value
Range("E75").Value = Range("表3!E33").Value
Range("F73").Value = Range("表1!F33").Value
Range("F74").Value = Range("表2!F33").Value
Range("F75").Value = Range("表3!F33").Value
Range("G73").Value = Range("表1!G33").Value
Range("G74").Value = Range("表2!G33").Value
Range("G75").Value = Range("表3!G33").Value
Range("H73").Value = Range("表1!H33").Value
Range("H74").Value = Range("表2!H33").Value
Range("H75").Value = Range("表3!H33").Value
Range("I73").Value = Range("表1!I33").Value
Range("I74").Value = Range("表2!I33").Value
Range("I75").Value = Range("表3!I33").Value
Range("J73").Value = Range("表1!J33").Value
Range("J74").Value = Range("表2!J33").Value
Range("J75").Value = Range("表3!J33").Value
''
''
''
''
''
'Fungi: NMT 102 cfu/g'
''
Range("A76").Value = Range("表1!A34").Value
Range("B76").Value = Range("表1!B34").Value & " " & Range("表1!B5").Value
Range("B77").Value = Range("表2!B34").Value & " " & Range("表2!B5").Value
Range("B78").Value = Range("表3!B34").Value & " " & Range("表3!B5").Value
Range("C76").Value = Range("表1!C34").Value
Range("C77").Value = Range("表2!C34").Value
Range("C78").Value = Range("表3!C34").Value
Range("D76").Value = Range("表1!D34").Value
Range("D77").Value = Range("表2!D34").Value
Range("D78").Value = Range("表3!D34").Value
Range("E76").Value = Range("表1!E34").Value
Range("E77").Value = Range("表2!E34").Value
Range("E78").Value = Range("表3!E34").Value
Range("F76").Value = Range("表1!F34").Value
Range("F77").Value = Range("表2!F34").Value
Range("F78").Value = Range("表3!F34").Value
Range("G76").Value = Range("表1!G34").Value
Range("G77").Value = Range("表2!G34").Value
Range("G78").Value = Range("表3!G34").Value
Range("H76").Value = Range("表1!H34").Value
Range("H77").Value = Range("表2!H34").Value
Range("H78").Value = Range("表3!H34").Value
Range("I76").Value = Range("表1!I34").Value
Range("I77").Value = Range("表2!I34").Value
Range("I78").Value = Range("表3!I34").Value
Range("J76").Value = Range("表1!J34").Value
Range("J77").Value = Range("表2!J34").Value
Range("J78").Value = Range("表3!J34").Value
''
''
''
'E-coli: must be absent/g.'
''
Range("A79").Value = Range("表1!A35").Value
Range("B79").Value = Range("表1!B5").Value
Range("B80").Value = Range("表2!B5").Value
Range("B81").Value = Range("表3!B5").Value
Range("C79").Value = Range("表1!C35").Value
Range("C80").Value = Range("表2!C35").Value
Range("C81").Value = Range("表3!C35").Value
Range("D79").Value = Range("表1!D35").Value
Range("D80").Value = Range("表2!D35").Value
Range("D81").Value = Range("表3!D35").Value
Range("E79").Value = Range("表1!E35").Value
Range("E80").Value = Range("表2!E35").Value
Range("E81").Value = Range("表3!E35").Value
Range("F79").Value = Range("表1!F35").Value
Range("F80").Value = Range("表2!F35").Value
Range("F81").Value = Range("表3!F35").Value
Range("G79").Value = Range("表1!G35").Value
Range("G80").Value = Range("表2!G35").Value
Range("G81").Value = Range("表3!G35").Value
Range("H79").Value = Range("表1!H35").Value
Range("H80").Value = Range("表2!H35").Value
Range("H81").Value = Range("表3!H35").Value
Range("I79").Value = Range("表1!I35").Value
Range("I80").Value = Range("表2!I35").Value
Range("I81").Value = Range("表3!I35").Value
Range("J79").Value = Range("表1!J35").Value
Range("J80").Value = Range("表2!J35").Value
Range("J81").Value = Range("表3!J35").Value
''
''
''
Range("A82").Value = Range("表1!A36").Value
Range("A82").Value = "Conclusion:本品在上述储存条件下，长期稳定性试验在36个月结束。Under above storage condition, longterm stability testing finishes at the time point of 36M."
Range("A88:J88").Value = Range("表1!A42:J42").Value
''
End Sub