CSVの項目名と列記号を2行目のセルの文末にいれるよ

この説明は、ChatGPTで作成しています。

このプロシージャは、Excelシートの最初の行にある項目名（例えば「名前」や「住所」など）と、その項目がどの列にあるかを示す記号（「A列」、「B列」など）を2行目の各セルに追記するためのものです。

動作の仕組みは次の通りです：

1. ワークシートの指定
   `Set ws = ActiveSheet` で、現在アクティブになっているシート（作業中のシート）を指定しています。

2. 最後の列を取得
   `lastColumn = ws.Cells(1, ws.Columns.count).End(xlToLeft).Column`
   これは、シートの1行目で最後に使われている列を探すコードです。例えば、AからEまでデータがあれば、5（E列）が取得されます。

3. 各列に対する処理
   `For i = 1 To lastColumn` の部分で、1列目から最後の列まで順番に処理を行います。

4. 項目名と列記号を取得
   `colName = ws.Cells(1, i).Value` で1行目のセルの内容（項目名）を取得し、
   `colLetter = Split(ws.Cells(1, i).Address(True, False), "$")(0)` でそのセルの列記号（A列、B列など）を取得しています。

5. 2行目のセルに追記
   取得した項目名と列記号を、2行目の同じ列のセルに `"[CSV_列記号_項目名]"` という形式で追加します。例えば、A列に「名前」があれば、2行目のA列には `"[CSV_A列_名前]"` という文字が追加されます。

これによって、1行目の項目名とその位置が2行目に追記され、CSVの列情報が明確になります。

Sub CSVの項目名と列記号を2行目のセルの文末にいれるよ()
    Dim ws As Worksheet
    Dim lastColumn As Long
    Dim colName As String
    Dim colLetter As String
    Dim i As Long
    ' ワークシートを指定します
    Set ws = ActiveSheet

    ' 最後のカラムを取得します
    lastColumn = ws.Cells(1, ws.Columns.count).End(xlToLeft).Column

    ' カラム名とカラム記号を取得して、結果を文字列に追加します
    For i = 1 To lastColumn
        colName = ws.Cells(1, i).Value
        If colName <> "" Then
            colLetter = Split(ws.Cells(1, i).Address(True, False), "$")(0)
            ws.Cells(2, i) = ws.Cells(2, i) & vbLf & "[CSV_" & colLetter & "列_" & colName & "]"
        End If
    Next i
End Sub

---

• Excel VBA　リファレンス | Microsoft Learn

• この記事のYouTube動画はこちら

---

キーワード

#excel #できること #vba #項目名 #列記号 #ワークシート #カラム #アドレス取得 #セル操作 #Forループ #ActiveSheet #プログラミング初心者 #列の最後 #シート操作 #セルの値 #CSV操作 #列番号 #データ加工 #Excel自動化 #プログラミング入門

---

英訳

---

Add column names and column letters to the end of cells in the second row

This explanation is created using ChatGPT.

This procedure is designed to append the column names (e.g., "Name" or "Address") from the first row of an Excel sheet and the corresponding column letters (e.g., "A column", "B column") to the end of the cells in the second row.

Here's how it works:

1. Specify the worksheet
   The line `Set ws = ActiveSheet` designates the currently active sheet (the sheet you are working on).

2. Get the last column
   The line `lastColumn = ws.Cells(1, ws.Columns.count).End(xlToLeft).Column` finds the last used column in the first row of the sheet. For example, if there is data from columns A to E, 5 (representing column E) is obtained.

3. Process each column
   The `For i = 1 To lastColumn` loop processes each column from the first to the last.

4. Retrieve the column name and letter
   `colName = ws.Cells(1, i).Value` retrieves the content (column name) of the cell in the first row, and
   `colLetter = Split(ws.Cells(1, i).Address(True, False), "$")(0)` retrieves the column letter (A, B, etc.) of that cell.

5. Append to the second row cell
   The retrieved column name and letter are added to the cell in the same column of the second row in the format `"[CSV_ColumnLetter_ColumnName]"`. For example, if "Name" is in column A, `"[CSV_A列_名前]"` is added to the A2 cell.

This makes the column information from the first row clear by appending it to the second row.

---

• Excel VBA Reference | Microsoft Learn

• YouTube video of this article