홈>
이 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 문에 전달해야하는 이유는 무엇입니까?
- list - 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 - 런타임 오류 5 - 잘못된 절차 :피벗 테이블 소스 변경
- excel - 시트에서 통합 문서로 바코드 조회 변경
- excel - VBA 내에서 직접 Powershell 구문 적용
- excel - vba - for 루프가 설계된대로 여러 열 대신 하나의 열로 출력
- ListBox에 Excel VBA 게시 배열
- excel - 셀레늄 VBA 용 XPATH 가져 오기
- excel - 기준에 따라 한 시트에서 다른 시트로 데이터 복사
- VBA (EXCEL MACROS)를 사용하는 병합 된 통합 문서의 내부 링크 흑백 시트
- excel - 동일한 통합 문서에서 서로 다른 워크 시트에서 두 개의 명명 된 범위를 비교하는 방법은 무엇입니까?
- excel - 다른 시트에서 selectioncurrentregion을 사용하는 VBA의 vlookup
"텍스트가있는 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