Note: The other languages of the website are Google-translated. Back to English

Excel에서 셀 값을 기반으로 행을 자동 삽입하는 방법은 무엇입니까?

doc-insert-row-based-on-value-1
데이터 범위가 있고 Excel의 특정 값 위나 아래에 빈 행을 자동으로 삽입하려고한다고 가정합니다 (예 : 아래 스크린 샷과 같이 XNUMX 값 아래에 행 자동 삽입). Excel에서는이 작업을 직접 해결할 수있는 방법이 없지만 Excel의 특정 값을 기반으로 행을 자동으로 삽입하는 매크로 코드를 소개 할 수 있습니다.
VBA를 사용하여 셀 값을 기반으로 아래에 행 삽입

Excel 용 Kutools를 사용하여 셀 값을 기반으로 위에 행 삽입 좋은 생각 3

VBA를 실행하여 셀 값을 기준으로 행을 삽입하려면 다음 단계를 수행하십시오.

1. 프레스 Alt + F11 동시에 키 및 응용 프로그램 용 Microsoft Visual Basic 창이 튀어 나옵니다.

2. 클릭 끼워 넣다 > 모듈, 그런 다음 VBA 코드 아래에 붙여 넣습니다. 모듈 창.

VBA : 셀 값을 기준으로 아래에 행을 삽입합니다.

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. 클릭 F5 키 또는 달리기 버튼을 누르면 대화 상자가 열리고 XNUMX이 포함 된 열을 선택합니다. 스크린 샷보기 :
doc-insert-row-based-on-value-2

4. 클릭 OK. 그런 다음 빈 행이 XNUMX 값 아래에 삽입됩니다.
doc-insert-row-based-on-value-3

:

1. 다른 값을 기준으로 행을 삽입하려면 다음을 변경할 수 있습니다. 0 VBA에서 원하는 값으로 : Rng.Value = "0"이면.

2. XNUMX 또는 다른 값 위에 행을 삽입하려면 아래 vba 코드를 사용할 수 있습니다.

VBA : XNUMX 값 위에 행 삽입 :

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

doc-insert-row-based-on-value-4


VBA에 익숙하지 않은 경우 시도해 볼 수 있습니다. Excel 용 Kutools's 특정 셀 선택 유틸리티를 누른 다음 위에 행을 삽입하십시오.

Excel 용 Kutools, 이상과 300 편리한 기능으로 작업이 더 쉬워집니다. 

설치 후 Excel 용 Kutools는 다음과 같이하십시오.(지금 Excel 용 Kutools 무료 다운로드!)

1. 특정 셀을 찾으려는 목록을 선택하고 쿠툴 > > 특정 셀 선택. 스크린 샷보기 :
값 9를 기반으로 문서 삽입 행

2. 팝업 대화 상자에서 전체 행 옵션을 선택한 다음 선택으로 이동 같음 특정 유형 목록을 클릭 한 다음 오른쪽 텍스트 상자에 찾으려는 값을 입력합니다. 스크린 샷보기 :
값 6를 기반으로 문서 삽입 행

3. 클릭 Ok, 선택한 행 수를 알려주는 대화 상자가 나타나면 닫으십시오.

4. 선택한 한 행에 커서를 놓고 마우스 오른쪽 버튼을 클릭하여 끼워 넣다 상황에 맞는 메뉴에서. 스크린 샷보기 :
값 7를 기반으로 문서 삽입 행

이제 특정 값을 기반으로 행이 위에 삽입됩니다.
값 8를 기반으로 문서 삽입 행


관련 기사 :


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (43)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아래 셀 아래에 특정 내용을 붙여넣고 싶습니다. 그렇게하는 방법? 빈 행 대신 몇 개의 열에 값을 삽입하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 값을 기반으로 여러 행을 삽입하고 싶습니다 예: 값이 1인 셀 아래에 2개의 빈 행, 값이 2인 셀 아래에 3개의 행, 값이 3인 셀 아래에 4개의 행을 삽입하고 싶습니다. 이것 좀 도와주세요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이에 대한 답변을 받은 적이 있습니까? 같은 일을 하려고 해요.

#주 휴가를 받는 직원 목록이 있습니다. 매주 행을 삽입하고 싶습니다. 얼마나 많은 시간을 벌었는가에 따라 1, 2, 3행이 될 것입니다. #s 1 2 3은 이미 내 스프레드시트에 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
한 스프레드시트의 셀 값을 사용하고 다른 스프레드시트의 행 삽입을 사용하여 개수를 기반으로 행을 삽입하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
메시지 덕분입니다. 그러나 귀하의 질문을 더 자세히 설명할 수 있습니까? 어떤 행을 삽입하시겠습니까? 공백? 그리고 시트의 어디에 삽입하시겠습니까? 가능하시다면 스크린샷을 좀 주세요. 고맙습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
사랑해요. 고맙습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
굉장했습니다!!. 고마워요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
둘 이상의 행을 어떻게 삽입할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 VBA를 시도 할 수 있습니다

하위 공백 줄()
'업데이트by20150203
범위로 딤 Rng
Dim WorkRng As Range
Dim xInsertNum As Long
' 오류 시 다음 재개
xTitleId = "Excel용 Kutools"
WorkRng = Application.Selection 설정
WorkRng 설정 = Application.InputBox("범위", xTitleId, WorkRng.Address, 유형:=8)
WorkRng가 아무것도 아닌 경우 Sub를 종료하십시오.
xInsertNum = Application.InputBox("삽입할 빈 행의 수 ", xTitleId, Type:=1)
xInsertNum = False이면
MsgBox " 삽입하려는 빈 행의 수 ", vbInformation, xTitleId
서브 종료
END IF
WorkRng = WorkRng.Columns(1) 설정
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
xRowIndex = xLastRow의 경우 1 단계 -1
Rng 설정 = WorkRng.Range("A" & xRowIndex)
Rng.Value = "0"이면
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
END IF
다음
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아래에 빈 행을 삽입하려면 다음을 시도하십시오.

하위 공백 줄()
'업데이트by20150203
범위로 딤 Rng
Dim WorkRng As Range
Dim xInsertNum As Long
' 오류 시 다음 재개
xTitleId = "Excel용 Kutools"
WorkRng = Application.Selection 설정
WorkRng 설정 = Application.InputBox("범위", xTitleId, WorkRng.Address, 유형:=8)
WorkRng가 아무것도 아닌 경우 Sub를 종료하십시오.
xInsertNum = Application.InputBox("삽입할 빈 행의 개수", xTitleId, Type:=1)
xInsertNum = False이면
MsgBox " 삽입하려는 빈 행의 수 ", vbInformation, xTitleId
서브 종료
END IF
WorkRng = WorkRng.Columns(1) 설정
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
xRowIndex = xLastRow의 경우 1 단계 -1
Rng 설정 = WorkRng.Range("A" & xRowIndex)
Rng.Value = "0"이면
Rng.Offset(1, 0).Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
END IF
다음
Application.ScreenUpdating = True
최종 하위

아래는 위에 행을 삽입하는 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
HI Sunny, 이 매크로는 저에게 완벽하게 작동합니다. 행 수를 30으로 변경하고 0을 "결산 잔액"이라는 텍스트로 변경해야 했습니다. 하지만 이제 이 매크로에 의해 방금 삽입된 30개의 빈 줄에 30행 높이의 셀 선택을 복사하여 붙여넣고 싶습니다. 범위를 복사하여 각 30개의 공백 줄에 붙여넣을 새 매크로(또는 이 매크로의 수정본)를 제안할 수 있습니까? '템플릿'을 복사하여 붙여 넣을 범위의 이름을 지정했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 주제에 대해 큰 도움이 필요합니다. 2개의 열이 있습니다. 첫 번째 열에는 데이터 시간이 1/01/01 2016:05:00, 일/월/년 시/분/초가 있고 두 번째 열에는 시간과 관련된 각 데이터가 있습니다.

내 문제는 일 간격이 있기 때문에 행 사이에 데이터 시간을 추가하고 싶다는 것입니다. 첫 번째 줄은 1년 01월 01일이고 두 번째 줄은 예를 들어 2016년 2월 10일이므로 01일이 있습니다. 그리고 그 코드는 나를 위해 작동하지 않습니다.

피드백을 기다리겠습니다. 감사해요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 VBA를 시도 할 수 있습니다

하위 InsertValueBetween()
'업데이트 20130825
Dim WorkRng As Range
범위로 딤 Rng
Dim outArr을 변형으로
Dim dic을 변형으로
dic = CreateObject("Scripting.Dictionary") 설정
'오류 발생 시 다음 재개
xTitleId = "KutoolsforExcel"
WorkRng = Application.Selection 설정
WorkRng 설정 = Application.InputBox("범위", xTitleId, WorkRng.Address, 유형:=8)
num1 = WorkRng.Range("A1").값
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).값
간격 = num2 - num1
ReDim outArr(1 To 간격 + 1, 1 To 2)
WorkRng의 각 Rng에 대해
dic(Rng.값) = Rng.Offset(0, 1).값
다음
i = 0인 경우 간격으로
outArr(i + 1, 1) = i + 숫자1
dic.Exists(i + num1) 다음
outArr(i + 1, 2) = dic(i + 숫자1)
다른
outArr(i + 1, 2) = ""
END IF
다음
WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2)) 사용
.값 = outArr
.선택하다

최종 하위


또는 Excel용 Kutools가 있는 경우 다음 기능을 시도해 볼 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 저는 두 가지 모두 시도했습니다. 첫 번째 것은 1개 행의 데이터가 있기 때문에 모든 500개 행에 대해 수행하고 아무 것도 하지 않습니다. 아마도 사용할 행에 제한이 있는 것 같습니다. 예를 들어 처음 500개 행만 선택하면 누락된 행이 생성되지 않고 누락된 데이터의 행이 대체됩니다.

내가 가진 또 다른 문제는 내 시간 데이터에 일/월/년 HH: MM: SS도 있다는 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
2부터 3까지는 내가 원하는 누락된 데이터가 생성되지만 03/01/2016의 값이 제거되고 내가 원하지 않는 무언가가 제거된 시간 데이터가 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 코드가 도움이 되지 않아 죄송합니다. 날짜 및 시간 형식에 사용할 수 있는 방법을 찾을 수 없습니다. 마침내 해결책을 찾으면 알려주시겠습니까? 고맙습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
다시 써니, 안녕하세요. 코드를 편집하는 데 성공했습니다(num1 행을 A2로 변경하고 With WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2) ):


하위 InsertValueBetween()
'업데이트 20130825
Dim WorkRng As Range
범위로 딤 Rng
Dim outArr을 변형으로
Dim dic을 변형으로
dic = CreateObject("Scripting.Dictionary") 설정
'오류 발생 시 다음 재개
xTitleId = "KutoolsforExcel"
WorkRng = Application.Selection 설정
WorkRng 설정 = Application.InputBox("범위", xTitleId, WorkRng.Address, 유형:=8)
num1 = WorkRng.Range("A2").값
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).값
간격 = num2 - num1
ReDim outArr(1 To 간격 + 1, 1 To 2)
WorkRng의 각 Rng에 대해
dic(Rng.값) = Rng.Offset(0, 1).값
다음
i = 0인 경우 간격으로
outArr(i + 1, 1) = i + 숫자1
dic.Exists(i + num1) 다음
outArr(i + 1, 2) = dic(i + 숫자1)
다른
outArr(i + 1, 2) = ""
END IF
다음
WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2)) 사용
.값 = outArr
.선택하다

최종 하위



그래프를 보여 드리겠습니다. A100에서 A1까지의 시간을 생성하지 않기 때문에 2% 작동하지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
여기에 내 질문이 있으며 그것은 매우 어려운 것 같습니다. 필터링 된 열 아래에 새 행을 추가하고 처음 세 개의 셀만 추가 된 새 행에 복사하고 사용자가 타격을 멈출 때까지 계속하는 vba 코드가 있습니까? "입력"하고 필터링된 셀의 필터링을 해제하시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
귀하의 질문은 다소 어렵고 복잡합니다. 포럼에 질문을 올리면 누군가가 답변해 줄 수 있습니다. https://www.extendoffice.com/forum.html
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 난 그냥 셀에 데이터가 이미 있을 때 행 추가를 수행해야 하는 codition인 경우 행을 추가하는 방법을 묻고 싶습니다(시트가 많은 Excel 통합 문서용입니다. :) 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 vba 코드가 도움이 될 수 있습니다. 위의 행이 비어 있지 않으면 행을 추가합니다.

보조 도우미()
희미한 수만큼
개수 = ActiveSheet.UsedRange.Rows.count의 경우 1 단계 -1
If Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Insert
다음 카운트
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 저는 이 코드를 사용하여 셀의 처음 4자리가 변경될 때 행을 입력하려고 합니다(가능한 경우).

예를 들어,
2222
2222B
2223K


세 번째 숫자는 2222가 아니라 3이므로 3B 뒤에 줄을 삽입합니다.

고마워요 !!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 감사합니다. 하지만 XNUMX이 아닌 값 아래에 cingle 셀을 삽입해야 하는 또 다른 시나리오가 있습니다. 제안에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Gina, 비어 있지 않은 셀 위에 빈 행을 삽입하는 코드를 찾았습니다. 누군가가 필요에 맞게 조정할 수 있습니다.

하위 Insert_Rows()
희미한 LR As Long, r As Long

Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
r = LR의 경우 1단계 -1
Len(Range("A" & r).Value) > 0이면
행(r).삽입
END IF
다음 r
Application.ScreenUpdating = True
최종 하위

에서 온 https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이것은 매우 도움이됩니다. 아래에 두 줄을 추가하고 더 많은 값을 원하면 어떻게 될까요? 예를 들어 26년 04월 2019일 값 뒤에 두 줄을 추가하고 03년 04월 2019일 이후에 두 줄을 추가하고 목록이 계속됩니다. 어떻게 vba에 계속 추가합니까? 아직 초보라 죄송합니다. 미리 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Safa, Kutools의 빈 행/열 삽입 유틸리티를 사용해 볼 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하위 공백 줄()
'업데이트by20150203
범위로 딤 Rng
Dim WorkRng As Range
오류에 대한 다음 재개
xTitleId = "KutoolsforExcel"
WorkRng = Application.Selection 설정
WorkRng = Application.InputBox("범위", xTitleId, WorkRng.Address, 유형: = 8) 설정
WorkRng = WorkRng.Columns(1) 설정
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
xRowIndex = xLastRow의 경우 1 단계 - 1
Rng 설정 = WorkRng.Range("A" & xRowIndex)
Rng.Value = "0"이면
Rng.EntireRow.Insert 시프트: = xlDown
END IF
다음
Application.ScreenUpdating = True
최종 하위


셀에 무언가를 넣을 때마다 그리고 더 많은 변수를 사용하려면 이것이 필요합니다. 내 말은 셀에 2를 넣으면 2이 아닌 1 행을 삽입해야한다는 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
qty가 1보다 크면 행 수 -1을 삽입하는 수량 열을 기반으로 행을 추가하려면 매크로가 필요합니다. 수량이 5이면 그 아래에 4개의 행을 삽입하고 데이터를 채우고 호출된 수량을 각 행의 5에서 1로 변경합니다. 모든 수량 1을 건너뜁니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀 값을 기반으로 특정 수의 행을 추가하려는 코드를 알려주세요. 예를 들어 셀에 숫자 18이 포함된 경우 원하는 위치에 자동으로 18개의 행이 추가되고 나머지 테이블/셀은 아래쪽으로 이동해야 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
덕분에 정말 엄청난 시간을 절약할 수 있었습니다. 새 행에 일부 텍스트를 삽입할 수 있는 코드를 추가할 수 있습니까? 예를 들어 대상 값 'x'를 기반으로 새 행을 삽입하는 경우 대상 값 'x' 아래의 셀에 텍스트 값 'y'를 추가하고 싶습니다. 이게 가능해?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요. 매크로는 저에게 효과적이지만 입력 상자가 전혀 나타나지 않고 항상 범위/매개변수를 항상 J 열로 설정하는 방법이 있습니까? 입력창이 뜨는 단계를 건너뛰고 싶습니다. 또한 이 매크로 바로 앞에서 이전 매크로의 마지막 줄이 Range("J:J")인지 확인했습니다. 전체 J 열이 이미 선택되어 있는지 확인하려면 선택하십시오.
이것은 내가 지금까지 사용한 것입니다.

범위로 딤 Rng
Dim WorkRng As Range
오류에 대한 다음 재개
xTitleId = "계속하려면 확인을 클릭하십시오"
WorkRng = Application.Selection 설정
WorkRng 설정 = Application.InputBox("범위", xTitleId, WorkRng.Address, 유형:=8)
WorkRng = WorkRng.Columns(1) 설정
센드키 "~"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
xRowIndex = xLastRow의 경우 1 단계 -1
Rng 설정 = WorkRng.Range("A" & xRowIndex)
Rng.Value = "새 GMS 라인"인 경우 다음
Rng.EntireRow.Insert Shift:=xlDown
END IF
다음


몇 단계 사이에 SendKeys "~" 명령을 사용하여 실험을 시도하여 입력 상자가 나타날 때 자동으로 Enter 키를 누르도록 시도했지만 작동하지 않았습니다. 매크로에서 SendKeys 명령을 정확히 어디에 사용해야 하는지 또는 입력 상자에서도 작동하는지 확신할 수 없었습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나에게 데이터가 있는 것을 도와주세요. 탈출 시간에 따라 빈 행을 삽입해야 한다는 점에서 XNUMX개월 시간 데이터가 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, hr.babu08님, 답변이 늦어 죄송합니다. 빈 행을 삽입하거나 누락된 시퀀스 데이터에 표시를 하고 싶은 것 같습니다. 그렇다면 Excel용 Kutools의 누락된 시퀀스 번호 찾기 기능을 사용해 보세요. 기능에 대한 자습서는 다음과 같습니다. https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf 누락된 시퀀스에 대해 빈 행을 삽입하는 다른 방법을 원하시면 다음을 방문하십시오.https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
이 마르코를 유색 세포에 사용/변경할 수 있습니까?
색상이 지정된 각 시리즈의 끝 위에 최소 10행을 삽입해야 합니다.
고마워!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
특정 셀 내용에 대한 값이 포함된 특정 행을 추가해야 하지만 3800개 이상의 행에 대해 수동으로 수행하지 않고 수행하는 방법을 잘 모르겠습니다.

예: A1 = 노드1
행을 삽입하고 스캐너 값을 입력해야 합니다.
다른 행을 입력하고 값을 입력하십시오. 프린터
값 CD가 있는 다른 행.
등등
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Chris, 여기 VBA가 Node1과 같을 때 세 개의 행(스캐너, 프린터, CD)을 자동으로 삽입하는 데 도움이 됩니다.
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a range", xTitleId, WorkRng.Address, Type:=8)

Set WorkRng = WorkRng.Columns(1)

xLastRow = WorkRng.Rows.Count

Application.ScreenUpdating = False

For xRowIndex = xLastRow To 1 Step -1

  Set Rng = WorkRng.Range("A" & xRowIndex)

  If Rng.Value = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

당신을 위해 작동하는지 알려주십시오.
아직 코멘트가 없습니다
더보기

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호