비정형 채우기 입니다

@khj**** 님 우선 50칸씩 주기적으로 데이터가 수정되고 있어서..

VBA를 사용하면 어렵지 않게 구현할 수 있을 것 같습니다

아래는 노란색 영역을 오른쪽으로 이동하는 코드이고 나머지도 적절히 수정해서 잘 사용해보세요..

For i = 0 To 100
Range("A" & i*50+38 & ":A" & i*50+50).Copy Range("B" & i*50+38 & ":B" & i*50+50)
Range("A" & i*50+38 & ":A" & i*50+50).ClearContents
Next

네

해보겠읍니다

감사합니다

@khj**** 님 필터를 사용해보세요
1 A,B 열 복사해서 F,G열에 값 붙여넣기
2 A열 필터 걸어서 날짜만 골라내서 E열에 =로 A열 불러오기
3 A열 날짜만 빼고 나머지 필터해서 E3셀에 =E2 이런식으로 윗셀 불러오기
4 날짜 열 완성
5 B열에서 빈 셀, 직종, 직영용역, 직원을 빼고 필터링해서 A열에 =으로 E열 값을 불러오기
날짜 서식 바꾸기
6 A열에 필터해서 작업일보, 날짜, 현장명, 공사기간, NO, 협력업체소계, 직영, 직영소계, 금일합계, 중기투입현황, 중기명, 빈칸을 빼고
7 E열 날짜값을 A열에 =로 연결, F열 중기명을 B열에 =로 연결
8 표 전체 잡고 일반선 모든 테두리
9 A열에 필터걸고 작업일보만 필터, 전체 잡고 셀서식으로 위쪽에 두꺼운 선, 채우기 회색
10 전체 잡고 외곽선 두껍게
11 A~D열 전체 복사, CTRL+ALT+V로 제자리에 값 붙여넣기로 수식 제거
12 E~G열 열 삭제

전체 다 하는데 4분 47초 걸렸는데 영상이 커서 올라가질 않아서 말로 적었습니다

첨부파일 : 작업일보-정리-1.xlsx