:: 게시판
:: 이전 게시판
|
- PGR21 관련된 질문 및 건의는 [건의 게시판]을 이용바랍니다.
- (2013년 3월 이전) 오래된 질문글은 [이전 질문 게시판]에 있습니다. 통합 규정을 준수해 주십시오. (2015.12.25.)
통합규정 1.3 이용안내 인용"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
21/07/13 18:25
VBR을 사용하는게 아니라면 아마 이거 할수 있는 방법은:
1. 열이 최대 5개 2. G열에서 숫자 복사가 시작 이 두가지 조건이 충족돼야 할껄요? 한스텝 더 밟는게 괜찮으시면 G열에 각 숫자들 나열해놓고 5행부터 원하시는 아웃풋을 다시 만들 수 있을거 같긴 한데. 다음분께서 설명을...
21/07/13 19:33
=IF(COLUMN()-COUNT($A1:A1)>COUNT($A1:A1),"",TEXT(INDEX($A1:A1,1,COLUMN()-COUNT($A1:A1)),0))
B1(내용상 13위치)에 복사하셔서 드래그로 채우시면 될거에요 단점은 눈에 보이는 모양만 같고 뒤에 내용은 텍스트..
21/07/13 21:33
1행1열(a1)부터 값이 입력되어 있고
단순히 각 행별로 기록된 값을 같은 행의 빈열부터 다시 반복으로 놓고 1) 함수로 위의 그림 파일을 기준으로 수식을 f1 부터 복사해서 넣고 드래그하면 보이는 화면은 옆의 숫자 반복하게 표시합니다. =IF(INDIRECT(TEXT(ADDRESS(ROW(), COLUMN(A1), 4),"@"))=0,"",INDIRECT(TEXT(ADDRESS(ROW(), COLUMN(A1), 4),"@"))) 2) VBA로 단순하게 각행의 입력값을 바로 인접한 빈셀에 복사하는 방법으로 해봤습니다. Sub num_again() Dim cntR As Long, cntC As Long Dim rng As Range cntR = Range("a" & Rows.Count).End(3).Row For i = 1 To cntR Set rng = Range(Cells(i, 1), Cells(i, Columns.Count).End(1)) cntC = Cells(i, Columns.Count).End(1).Column rng.Copy Cells(i, cntC + 1).Select ActiveSheet.Paste Next End Sub
|