resize명령어 부분 참조하려고 햇는데 회원기간이 다되서 강좌를 못보내요 ㅠㅠ

dim data as range

data=refedit1.value

refedit1을 a1에서 f100까지 그었다면요 ㅎㅎ

if data.cells(1,0) 문자다 then        이건 아래 답변 달아 주신거 보면 되겠고요 ㅎ

이때 a1:f1 을 나눠서 어디에다 복사해주고....

a2:f100을 가지고 나머지 작업을 해주려고 하는데요 ㅎ

For j = 1 To data1.Columns.Count
For i = 1 To data1.Rows.Count - 1
Range("a20000").Offset(i - 1, j - 1) = (data1.Cells(i + 1, j) / data1.Cells(i, j) - 1) * 100
Next i
Next j

그러니까 이런 작업을 해주고 싶은거죠 ㅎㅎ 왜 리사이즈를 해야했냐면 지금 이코드는 숫자를 대상으로 해야하는 거잔아요 ㅎㅎ 좀더 구체적으로 말하면 저 1행은 회사명이고 2행부터는 주가지수인 셈이지요...회사명은 따로 어디엔가 복사하고 ㅎㅎ 주가지수들을 토대로 수익률은 구하는 작업인데,.,

이경우에 어떻게 해줘야 하나요....주가지수들만으로 구성된 range 변수를 새로 하나 지정해 줘야 할까요???

교수님이 너무 자잘한 인터페이스까지 요구하시는 바람에......골치 아픕니다 ㅠ

아...그리고 학과 다른 아이들은 이 과제 이미 다 포기했어요 ㅋㅋ 저만 끝까지 남았죠....ㅋㅋㅋ 요구하는 거 해가면 자꾸 다른걸 또 내주시는 바람에....-- 고생좀 했지요 ㅋㅋ 아무튼 이제 다 끝났습니다 ㅎㅎ

아 그리고 밑에 질문에서요 ㅎㅎ 해당이름을 가진 워크 시트가 존재하냐 존재하지 않냐를 가지고 if 구문을 만들순 없냐는 질문도 햇는데 못보셨나봐요 ㅎㅎ

if "자료"라는 워크시트가 해당 워크북에 없다면 then

이런식으로 말이죠 ㅎㅎ

아 글구 " & & " 말인데요 ㅎㅎ 이건 숫자부분만 바꿀수 있나요? 그러니까 a10에서 a는 못바꾸나요???

여튼 답변 정말 감사드립니다 ㅎㅎ