[ChatGPT To VBA] 配列を、割り込みたいカラム名を指定して、配列のヘッダー名を入力して挿入する

'配列を割り込みたいカラム名を指定して、配列のヘッダー名を入力して挿入する
Sub AddColumnToGetlist(sheetName As String, searchHeaderName As String, addHeaderName As String, data As Variant)
    Dim colCount As Integer
    Dim i As Integer
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(sheetName)
    
    ' 指定されたヘッダー名のカラム番号を取得
    colCount = ws.Rows(1).Find(searchHeaderName).Column
'    colCount = WorksheetFunction.Match(searchHeaderName, ws.Range("1:1"), 0)
    
    ' カラムの挿入
    ws.Columns(colCount).Insert
'    ws.Range(ws.Cells(1, colCount + 1), ws.Cells(1, colCount + 1)).Insert Shift:=xlToRight
    
    ' 追加したカラムにヘッダー名を付ける
    ws.Cells(1, colCount) = addHeaderName
    
    ' 配列をシートに貼り付け
    Range(ws.Cells(2, colCount), ws.Cells(UBound(data) + 1, colCount)) = data
'    For i = 1 To UBound(data)
'        ws.Cells(i + 1, colCount).Value = data(i)
'    Next i
End Sub

Related Posts