失業小父さんのアフィリエイト実践奮闘記

Excelブックを二つのExcelブックに分けるマクロをChatGPTに作ってもらいました。

ChatGPTにExcelブックを二分割するマクロを書いてもらいました”Sub SplitColumns()    Dim SourceBook As Workbook, TargetBook1 As Workbook, TargetBook2 As Workbook    Dim SourceSheet As Worksheet, TargetSheet1 As Worksheet, TargetSheet2 As Worksheet    Dim SourceRange As Range, TargetRange1 As Range, TargetRange2 As Range    Dim NumColumns As Integer, ColumnCounter As Integer        'ソースブックを開く    Set SourceBook = ThisWorkbook    Set SourceSheet = SourceBook.ActiveSheet        '分割先のブック1を作成    Set TargetBook1 = Workbooks.Add    Set TargetSheet1 = TargetBook1.Sheets(1)    NumColumns = 0        '分割先のブック2を作成    Set TargetBook2 = Workbooks.Add    Set TargetSheet2 = TargetBook2.Sheets(1)        '列を1つずつコピーして、2つのブックに分割する    For ColumnCounter = 1 To SourceSheet.Columns.Count        Set SourceRange = SourceSheet.Columns(ColumnCounter)        Set TargetRange1 = TargetSheet1.Columns(NumColumns + 1)        Set TargetRange2 = TargetSheet2.Columns(NumColumns + 1)                SourceRange.Copy TargetRange1        SourceRange.Copy TargetRange2                NumColumns = NumColumns + 1                '3150列に到達した場合、新しいブック2にコピーする        If NumColumns = 3150 Then            NumColumns = 0            Set TargetSheet2 = TargetBook2.Sheets.Add        End If    Next ColumnCounter        '元のブックを保存し、新しいブック1とブック2を保存して閉じる    SourceBook.Save    TargetBook1.SaveAs "分割後のブック1.xlsx"    TargetBook2.SaveAs "分割後のブック2.xlsx"    TargetBook1.Close    TargetBook2.CloseEnd Sub”これ説明文もあり本当に人間に作ってもらったようです。6300ある行を一つ一つコピーして　3150　半分になったら元のブックを保存して新しいExcelブックを保存して閉じる以前にはJavaもプログラミングしてもらったし　ホントChatGPTさまさまです。明日　。。。　もう明日ですね　凄いクロームの拡張機能を紹介します。これはプログラミング以上かもしれません。ChatGPTは日々進化しています。そしてクロームの拡張機能も日々進化しどんどん新しい機能が使えるようになっています。ただ　無料で使える限界も・・・・　文章が何度も途中で止まってしまいます。続き　をと検索窓に入れるとまた動きますが・・・　ストレスが半端ないもう少し課金なしに頑張ろうと思います。私の　最も必要なマクロの作成やJavaのプログラミングが出来るから　なんですが