mhl9mhl9

¦^´_ 1# t8899

¤£¥Îselect sheet3,¦ÛµM·|°±¯d¦b­ì³B,¸Õ¸Õ¥H¤U FFF
Sub FFF()
    With Sheets("sheet3")
       .Range("C2:C111").Copy
       .Range("AC2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
           xlNone, SkipBlanks:=False, Transpose:=False
          Application.CutCopyMode = False
    End With
    Sheet4.Range("Q10").Value = 1
End Sub