>

이 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

    "텍스트가있는 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.Offset

    c.Row > 1

관련 자료

  • 이전 javascript - 스타일링 된 컴포넌트/반응
  • 다음 java - Spring Security CustomUser 인증되지 않은 세부 사항