|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
첨부화일 보시고... 좀 알려주세요... 책이랑 도움말은 봐도 뭔 소린지.. ㅡㅡ;
==============[도영~님 글에 대한 답변입니다]==============
안녕하세요? 도영~ 님!
아직 해결 못하셨나요^^;;
Dim i As Integer
i = Range("L1").End(xlDown).Select
Range("L2").Select
Selection.Copy
Range("L3:?????").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
대신
Dim lngR As Long
lngR = Range("A65536").End(xlUp).Row
Range("L2:L" & lngR).FormulaR1C1 = "=IF(RC[-10]=0,""Err"",ROUNDDOWN(RC[-11]/RC[-10],1))"
그럼...행운이 있으시길...! |
|