홈>
이 VBA 코드를 찾았습니다 :
Sub InsertRev()
Dim c As Range
Set Rng = ActiveSheet.Range("A1:A5000")
For dblCounter = Rng.Cells.Count To 1 Step -1
Set c = Rng(dblCounter)
If c.Value Like "*Card Number:*" Then
c.EntireRow.Insert
End If
Next dblCounter
End Sub
하지만 A에 특정 텍스트가있는 경우에만 작동합니다. 텍스트가있는 A 열의 셀 위에 행이 삽입되어 있으면 변경할 방법이 있습니까? 행이 위에있는 열 A와 동일한 값을 가질 수 있습니까 (따라서 A1에 텍스트가 있으면 행이 A1 값 (현재 A2)으로 삽입 됨).
- 답변 # 1
관련 자료
- pandas - 파이썬에서 열 값을 파일 이름으로 출력 할 가능성이 있습니까?
- mysql - 각 행의 다른 열 값을 기반으로 한 열에 값을 삽입하는 방법은 무엇입니까?
- pandas - 해당 데이터 프레임의 열에 해당 데이터 프레임의 다른 열의 하위 문자열이 포함되어있는 경우 DataFrame의 행만 유지하는 방법이 있습니까?
- mysql - SUM 및 GROUP BY를 사용하여 열을 테이블에 삽입
- python - Pandas 열에 단어 만있는 경우 Pandas 데이터 프레임에서 행을 삭제하는 방법
- sql - 자동 증가없이 증가 열이있는 테이블에 행 삽입
- MS SQL Server 테이블 (가상 열)에 1 ~ 10 개의 숫자 열을 즉시 삽입하는 방법은 무엇입니까?
- ms access - 자동으로 재설정되는 시퀀스 열을 만드는 방법이 있습니까?
- r - 열 이름이 다른 dbWriteTable 일 때 SQLite 테이블에 데이터 프레임을 삽입 할 수 없습니다
- sql server - 기본 Getdate () 열이있을 때 열 이름을 INSERT 문에 전달해야하는 이유는 무엇입니까?
- r에서 열당 하나 이상의 경우가 있는지 확인하는 방법은 무엇입니까?
- sql server - SQL Insert는 열 순서가 중요합니다
- sql server - 각 항목 그룹에 대해 정렬 된 항목 수를 기반으로 SQL을 사용하여 열을 삽입하거나 업데이트하는 방법
- sql server - C #을 사용하는 "테이블의 ID 열에 대한 명시 적 값을 삽입 할 수 없습니다"오류
- python - 다른 모든 열에 null을 삽입하는 동안 sqlite3 테이블에 변수로 하나의 값만 삽입하는 방법
- java - 미리 채워진 sqlite 데이터베이스에 정보의 단일 열을 삽입하는 방법
- python - 데이터 프레임의 한 열에서 정보를 추출하고 오른쪽 열에 삽입하는 방법
- apache spark sql - sql - b 열에 누락 된 각 고유 요소의 a 열에있는 각 고유 요소에 대해 값이 0 인 행을 삽입합니다
- pyspark - lit in spark 데이터 프레임을 사용하여 열에 값을 삽입하는 방법은 무엇입니까?
- linq - 열 이름 'userid'가 SET 절 또는 INSERT의 열 목록에서 두 번 이상 지정되었습니다
관련 질문
- excel : vba 추출 및 Col B 고유 및 Col C 계산
- Excel에서 텍스트 상자의 형식을 유지하고 vba의 이메일 본문에 삽입하는 방법
- excel : VBA 런타임 오류 438: PDF로 내보내기는 친구가 아니라 나에게만 작동합니다.
- 행 VBA Excel의 범위
- 인덱스가 있는 Excel VBA 복사 워크시트가 작동하지 않습니다.
- excel : 통합 문서 파일을 선택하라는 메시지가 표시되지 않고 닫힌 통합 문서에서 데이터를 검색하시겠습니까?
- Excel VBA 셸 명령이 작동하지 않지만 Windows 명령 창에서 작동합니다.
- 데이터 입력 양식에서 Excel 데이터 유형을 올바르게 사용하려면 어떻게 해야 합니까?
- excel : 열을 통해 VBA 루프 및 조건 충족 후 새 열 삽입
- sql : 헤더가 있는 탭 제한 텍스트 파일을 쿼리하는 동안 VBA 오류 -"하나 이상의 필수 매개변수에 값이 지정되지 않았습니다"
"텍스트가있는 A 열의 셀 위에 행이 삽입되어 있으면 변경할 방법이 있습니까?"
대신 :
If c.Value Like "*Card Number:*" Then쓰기 :
<시간>If Len(Trim(c)) Then"행이 그 위에 A 열에있는 것과 동일한 값을 가질 수 있습니까 (따라서 A1에 텍스트가있는 경우 A1 (현재 A2)의 값으로 행이 삽입됩니다)"
와이즈 비즈 이후 쓰기 :
c.EntireRow.Insert와이즈 비즈 첫 번째 셀인 경우
If c.Row > 1 Then c.Value = c.Offset(-1).Value이므로 검사가 필요합니다. 오류가 발생합니다. MSDN Range.Offsetc.Row > 1