Excel에서 행 추가 및 계정 번호 증가

Question

외부 공급 업체의 메일 링리스트를 인계받습니다. Excel 2010이 사용됩니다. 고유 계정 번호 열이 있습니다.

새 행이 수정 될 때 기존 행이 수정되는 시점을 결정할 수있는 매크로가 필요하며 최대 개수 (계좌 번호)를 얻는 방법과 새 계좌 번호를 고유하게 유지하기 위해 1을 추가하는 방법 .

Answer 1

시트의 변경 사항을 추적 할 수 있습니다.

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim record As Range 
    Dim maxAccountNo As Long 

    For Each record In Target.Rows 
     If Cells(record.row, 1) = "" And WorksheetFunction.CountA(record.EntireRow) > 0 Then 
      If Not maxAccountNo Then 
       maxAccountNo = 1 + WorksheetFunction.Max(Range("$A:$A")) 
      End If 
      Cells(record.row, 1) = maxAccountNo 
     End If 
    Next 
End Sub 

: 워크 시트의 VBA 모듈에서이 코드를 넣어

: 변경된 셀이 계좌 번호 열에는 아무 상관이없는 행의 공백이 아닌 발견되면, 새로운 계좌 번호는 계산에 가득

여기에는 계좌 번호가 기입되지 않은 여러 행을 복사/붙여 넣기하는 경우도 포함됩니다.

이 코드는 계좌 번호가 첫 번째 행을 제외하고 A 열에 있다고 가정합니다.

$A2:$A100000 

..도의 열 번호 : 필요한 경우, 코드에서이 참조를 적응

Cells(record.row, 1)