VBA에서 Match 함수를 사용하여 열 번호 얻기

열 삽입 또는 열 삭제로 열 번호가 변경될 수 있음



Excel 시트에서는 열을 추가하거나 삭제할 수 있습니다.
아래와 같은 코드라면 그때 다시 쓰게 되기 때문에
ThisWorkbook.Worksheets("Sheet1").Cells(LastRow + 1, 1).Value = 10

그때 다시 쓰지 않아도 좋다
항목 행에서 항목 이름을 Match 함수로 검색하여 변수에 저장합니다.
Sub MasterDataAdd1()'最終行のひとつ下にデータを追加するコード
    Dim NoCol As Long 'Noの列番号を格納する変数
    Dim IDCol As Long 'IDの列番号を格納する変数
    Dim LastRow As Long '最終行を格納する変数

'列番号を変数に格納する
'Masterはシートオブジェクト名です
    NoCol = WorksheetFunction.Match("No", Master.Rows(1), 0) 'Match関数で列数格納
    IDCol = WorksheetFunction.Match("ID", Master.Rows(1), 0) 'Match関数で列数格納
    LastRow = Master.Cells(Rows.Count, NoCol).End(xlUp).Row '最終行格納
    Master.Cells(LastRow + 1, NoCol).Value = 10 '最終行のひとつ下にNo追加
    Master.Cells(LastRow + 1, IDCol).Value = "jjj" '最終行のひとつ下にID追加
End Sub

실행 결과


와타시 흐름 조건



열 번호를 저장하는 변수는 "~Col"
행 번호를 저장하는 변수는 "~Row"

그건 그렇고



이 상태로 항목 행 위에 행이 추가되거나 항목 이름이 변경되면 아웃입니다.
그럴 가능성이 있다면 그 조치를 취할 것입니다
그렇지만 우선 무작위 변경을 하지 않도록 전해 두는 것은 중요.

좋은 웹페이지 즐겨찾기