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"
그건 그렇고
이 상태로 항목 행 위에 행이 추가되거나 항목 이름이 변경되면 아웃입니다.
그럴 가능성이 있다면 그 조치를 취할 것입니다
그렇지만 우선 무작위 변경을 하지 않도록 전해 두는 것은 중요.
Reference
이 문제에 관하여(VBA에서 Match 함수를 사용하여 열 번호 얻기), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/KaoTechBlog/items/c6dee6099b79009d1f44텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)