|
|
|
2023.03.01
カテゴリ：エクセルとパソコン
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.Close End Sub”
これ説明文もあり本当に人間に作ってもらったようです。 6300ある行を一つ一つコピーして 3150 半分になったら元のブックを保存して 新しいExcelブックを保存して閉じる 以前にはJavaもプログラミングしてもらったし ホントChatGPTさまさまです。 明日 。。。 もう明日ですね 凄いクロームの拡張機能を紹介します。 これはプログラミング以上かもしれません。 ChatGPTは日々進化しています。 そしてクロームの拡張機能も日々進化しどんどん新しい機能が使えるようになっています。 ただ 無料で使える限界も・・・・ 文章が何度も途中で止まってしまいます。 続き をと検索窓に入れるとまた動きますが・・・ ストレスが半端ない もう少し課金なしに頑張ろうと思います。 私の 最も必要なマクロの作成やJavaのプログラミングが出来るから なんですが お気に入りの記事を「いいね！」で応援しよう
最終更新日
2023.03.01 01:28:28
コメント(0) | コメントを書く
[エクセルとパソコン] カテゴリの最新記事
|
