홈>
이 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에서 열에서 키워드 찾기 및 다른 열 편집
- excel : 마지막 행 IF를 찾는 매크로 도움말
- excel : 셀 색상을 확인/변경하기 위해 Change(byVal Target as Range)를 어떻게 사용합니까?
- excel : PC 스토리지 드라이브 이름 찾기
- excel : 성공적인 브라우저 시작 요청에 대한 동일한 페이로드에도 불구하고 VBA가 있는 HTTPRequest를 통한 "잘못된 다중 부분 페이로드 형식"
- excel : 수식 숫자 값을 숫자 더하기 1로 바꾸기
- excel : 값이 날짜를 따르도록 vlookup 또는 매크로를 설정하는 방법
- excel : 다른 이름으로 저장하는 동안 파일을 바꾸라는 메시지가 표시되면 "아니요" 또는 "취소"를 선택하면 VBA 1004 오류가 발생합니다.
- Excel 스프레드시트에 값을 쓰도록 확인란을 얻으려고 합니다.
- excel : 여러 If/Then 호출 옵션
"텍스트가있는 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