아래 나열된 다음 코드를 사용하고 있습니다. 나는 잘 작동하지만 내 셀 중 하나의 수식이 지워집니다. 시트에서 한 셀을 건너뛰도록 이 코드를 어떻게 수정합니까?
하위 MoveRowBasedOnCellValue()
'에 의해 업데이트됨 Extendoffice 2017/11/10
범위로 Dim xRg
xCell을 범위로 흐리게 처리
오랫동안 어둡게
딤 J As Long
딤케이 애즈롱
i = 워크시트("데이터").UsedRange.Rows.count
J = Worksheets("완료").UsedRange.Rows.count
J = 1이면
Application.WorksheetFunction.CountA(Worksheets("Completed").UsedRange) = 0이면 J = 0
END IF
xRg = Worksheets("Data").Range("A1:A" & i) 설정
오류에 대한 다음 재개
Application.ScreenUpdating = False
K = 1의 경우 xRg.count로
CStr(xRg(K).Value) = "완료"인 경우
xRg(K).EntireRow.Copy 대상:=Worksheets("완료").Range("A" & J + 1)
xRg(K).EntireRow.ClearContents
J = J + 1
END IF
다음 보기
Application.ScreenUpdating = True
열("A:A").선택
ActiveWorkbook.Worksheets("데이터").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("데이터").Sort.SortFields.Add2 Key:=Range("A3:A16") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Data").Sort 사용
.SetRange 범위("A2:Q16")
.헤더 = xl예
.MatchCase = False
.방향 = xlTopToBottom
.SortMethod = xlPinYin
.대다
Application.Goto 참조:=Worksheets("Data").Range("A3")
끝
하위 MoveRowBasedOnCellValue()
'에 의해 업데이트됨 Extendoffice 2017/11/10
범위로 Dim xRg
xCell을 범위로 흐리게 처리
오랫동안 어둡게
딤 J As Long
딤케이 애즈롱
i = 워크시트("데이터").UsedRange.Rows.count
J = Worksheets("완료").UsedRange.Rows.count
J = 1이면
Application.WorksheetFunction.CountA(Worksheets("Completed").UsedRange) = 0이면 J = 0
END IF
xRg = Worksheets("Data").Range("A1:A" & i) 설정
오류에 대한 다음 재개
Application.ScreenUpdating = False
K = 1의 경우 xRg.count로
CStr(xRg(K).Value) = "완료"인 경우
xRg(K).EntireRow.Copy 대상:=Worksheets("완료").Range("A" & J + 1)
xRg(K).EntireRow.ClearContents
J = J + 1
END IF
다음 보기
Application.ScreenUpdating = True
열("A:A").선택
ActiveWorkbook.Worksheets("데이터").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("데이터").Sort.SortFields.Add2 Key:=Range("A3:A16") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Data").Sort 사용
.SetRange 범위("A2:Q16")
.헤더 = xl예
.MatchCase = False
.방향 = xlTopToBottom
.SortMethod = xlPinYin
.대다
Application.Goto 참조:=Worksheets("Data").Range("A3")
끝