홈>
행 수가 많은 시트가 있습니다. 그들 중 일부는 빨간색으로 표시됩니다. 각 빨간색 행 위에 6 개의 빈 행이 있습니다. 여기서 빨간색 행을 복사하여 그 위에있는 각 빈 행에 6 번 붙여 넣어야합니다.
시트의 빨간색 행에 액세스하고 그 위의 6 행에 내용을 붙여 넣는 방법을 알 수 없습니다. 누군가 아이디어가 있다면 정말 행복 할 것입니다!
다음은 행을 빨간색으로 필터링하는 코드입니다 (필터링 후) :
Sub FilterByAA()
Dim lastrow As Long
Sheets("Raw Data").Activate
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:AT" & lastrow).Select
'Selection.AutoFilter Field:=2, Criteria1:="A6FC"
Selection.AutoFilter Field:=16, Criteria1:="AA", Operator:=xlFilterValues
Worksheets("Raw Data").UsedRange.Interior.ColorIndex = 3
Worksheets("Raw Data").Rows(1).EntireRow.Interior.ColorIndex = 2
End Sub
다음은 각 빨간색 행 앞에 6 개의 행을 삽입하는 코드입니다.
Sub InsertAA()
Dim c As Range
Set Rng = ActiveSheet.Range("P1:P7000")
For dblCounter = Rng.Cells.Count To 1 Step -1
Set c = Rng(dblCounter)
If c.Value Like "AA" Then
c.EntireRow.Insert
c.EntireRow.Insert
c.EntireRow.Insert
c.EntireRow.Insert
c.EntireRow.Insert
c.EntireRow.Insert
End If
Next dblCounter
End Sub
- 답변 # 1
- 답변 # 2
둘 다 결합 및 간소화 :
Sub FilterAndInsert application.screenupdating=false Dim lastrow As Long, rgLoop As Range, rgRed As Range With Sheets("Raw Data") lastrow = .Cells(Rows.Count, 1).End(xlUp).Row With .Range("A1:AT" & lastrow) .AutoFilter .AutoFilter Field:=16, Criteria1:="AA", Operator:=xlFilterValues .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 3 Set rgRed = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible) .AutoFilter End With For Each rgLoop In rgRed.Areas rgLoop.Resize(6).EntireRow.Insert xlShiftDown rgLoop.Offset(-6).Resize(6).Value = rgLoop.Value Next rgLoop End With application.screenupdating=true End Sub
관련 자료
- unique - R에서 모든 NULL 값이있는 행을 제거하는 방법
- sql - Hive를 사용하여 원시 데이터 파일의 모든 행을 계산하는 방법은 무엇입니까?
- git - 분기와 그 안의 모든 데이터를 복제하는 방법은 무엇입니까?
- r - 일주일 안에 모든 요일을 얻는 방법?
- c++ - int main에서 val1과 val2에 어떻게 액세스 할 수 있습니까?
- java.util.scanner - Java Scanner로 모든 콘텐츠를 읽는 방법은 무엇입니까?
- r - 동일한 ID를 가진 모든 관측 값을 변경하는 방법은 무엇입니까?
- bash - zsh에서 파일의 모든 명령을 대화식으로 실행하는 방법은 무엇입니까?
- bash - 파일의 모든 명령을 대화식으로 실행하는 방법
- python - pip로 모든 종속성을 설치하는 방법은 무엇입니까?
- python - 스택/언 스테 킹 할 때 NaN으로 행을 풀지 않는 방법은 무엇입니까?
- 행별로 데이터를 정렬하려면 어떻게합니까? [MYSQL]
- javascript - 이 배열의 모든 자손을 얻는 방법은 무엇입니까?
- c# - 아랍어 형식 WPF로 모든 요일 이름을 얻는 방법은 무엇입니까?
- css - 모든 html 구성 요소를 페이지 중앙으로 이동하려면 어떻게해야합니까?
- google bigquery - 모든 값의 합계를 얻는 방법은 무엇입니까?
- python - 팬더에서 행 중 하나라도 참일 때만 행을 얻는 방법은 무엇입니까?
- R의 데이터 프레임에서 대체 행을 얻는 방법
- xml - 텍스트 만 있고 자식이없는 모든 노드를 마킹하는 방법은 무엇입니까?
- sql - 최신 날짜로 행을 얻는 방법은 무엇입니까?
관련 질문
- excel : 날짜 선택기 문제 -월요일 -첫 번째 평일
- Excel VBA에서 열에서 키워드 찾기 및 다른 열 편집
- excel : 다른 이름으로 저장하는 동안 파일을 바꾸라는 메시지가 표시되면 "아니요" 또는 "취소"를 선택하면 VBA 1004 오류가 발생합니다.
- excel : IBM Notes를 통해 vba로 이메일을 보내는 데 문제가 있습니다.
- excel : 모든 시트를 하나의 마스터 시트로 업데이트
- excel : 나누기를 수행하는 동안 유형 불일치 오류가 발생했습니다.
- excel : VBA에서 더 복잡한 검색을 작성하려면 어떻게 해야 합니까?
- 한 행에 있는 하나 이상의 셀이 특정 색상인 경우 셀 내의 값을 증가시키는 Excel 문을 어떻게 만듭니까?
- Excel VBA에서 폴더 및 하위 폴더 만들기
- excel : vlookup 수식을 사용하여 열 "B"의 각 셀에서 자동으로 결과 채우기
이와 같은 것을 시도해보십시오