Excel: 열의 각 셀에 대한 기본 수식 설정

Question

각 셀 왼쪽에 있는 두 셀 사이의 킬로미터 차이를 계산하는 모든 셀에 다음 수식이 포함된 열이 있습니다.

=IF(AND(INDIRECT(ADDRESS(ROW(),COLUMN()-2))<>"", INDIRECT(ADDRESS(ROW(), COLUMN()-1))<>""), INDIRECT(ADDRESS(ROW(),COLUMN()-1))-INDIRECT(ADDRESS(ROW(),COLUMN()-2)), "")

내 문제는 기존 데이터 사이에 새 행을 삽입할 때마다 해당 행의 모든 ​​셀이 비어 있으므로 이 코드를 빈 셀에 수동으로 넣어야 한다는 것입니다.

열의 모든 셀(헤더 제외)을 특정 수식으로 설정할 수 있습니까?새 행을 삽입하더라도?

열을 테이블로 설정하려고 시도했는데 새 행을 삽입할 때마다 셀 자동 완성에 성공했습니다. 그러나 자동 완성하려는 다른 열도 있고 Excel에서는 다음과 같은 경우 새 행을 삽입할 수 없습니다. 나는 하나 이상의 열을 테이블로 만듭니다.

Answer 1

다음은 실제 스키마에 적용할 수 있는 작은 데모입니다. 데모에서:

1. 관심 있는 열은 열입니다.비
2. 두 개 이상의 행이 삽입되면 아무 일도 일어나지 않습니다
3. 데이터 영역 아래 행을 삽입하면 아무 일도 일어나지 않습니다
4. 행이 삭제되면 아무 일도 일어나지 않습니다
5. 데이터 중간에 행을 삽입하면 열의 셀이비위 수식이나 아래 수식 중 하나로 채워집니다.
6. 새 셀 위나 아래에 수식이 없으면 아무 일도 일어나지 않습니다

워크시트 코드 영역에 다음 하위를 삽입합니다.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range, r1 As Range, r2 As Range

    Set r = Target
    If r.Rows.Count > 1 Then Exit Sub
    If r.Columns.Count <> Cells.Columns.Count Then Exit Sub
    If r.Row = 1 Then Exit Sub

    Set r1 = Intersect(r, Columns(2))
    If r1.Value <> "" Then Exit Sub

    If r1.Offset(-1, 0).HasFormula Then
        Application.EnableEvents = False
            r1.Offset(-1, 0).Copy r1
        Application.EnableEvents = True
        Exit Sub
    End If

    If r1.Offset(1, 0).HasFormula Then
        Application.EnableEvents = False
            r1.Offset(1, 0).Copy r1
        Application.EnableEvents = True
        Exit Sub
    End If

End Sub

Answer 2

이 영상만 올리려고 했는데 당연히 30자 이상 입력해야 합니다.

"여기에 쉬운 방법이 있습니다."는 어떻습니까? 젠장, 고작 29살이에요.

관심 있는 분들을 위해 "그림 ​​삽입" 아이콘은 .mov를 허용하지 않지만꽤 깔끔한 웹사이트비디오 파일을 애니메이션 GIF로 변환합니다.