홈>
행 수가 많은 시트가 있습니다. 그들 중 일부는 빨간색으로 표시됩니다. 각 빨간색 행 위에 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 - 한 배열에서 다른 배열로 모든 값을 전송 한 다음 원래 배열을 지우는 방법이 있습니까?
- excel - XML의 노드가 식별/활용 가능한 것으로 보이지 않습니다
- vba - Excel은 null이 아닌 문자열 값을 계산합니다
- excel - 정보를 기반으로 열 삭제
- vba - Excel에서 확인란을 다시 활성화하려면 어떻게합니까
- VBA Excel Function - vba excel 기능 - 유효하지 않은 한정자
- 범위에 대해 값 목록을 확인하고 다른 열에 설정된 값을 반환하는 Excel VBA
- excel - VBA 내에서 직접 Powershell 구문 적용
이와 같은 것을 시도해보십시오