Excel

表の1列のセルに同じ文字を追記する方法。あとで表を修正したりするのに便利。Sub cell_add()''Dim s As StringFor i = 1 To 15 '1列、i行目を選択 Cells(i, 1).Select s = Ce...

シート名をテキストファイルの名前にして、各シートごとにシートの指定箇所をテキストファイルにする。指定箇所を１つずつ、シートに書き込んでいっている。Sub text_export2()Dim strFilePath As String'全シー...

シート名をテキストファイルの名前にして、各シートごとにシートの内容すべてをテキストファイルにするコンフィグシート（A列にコンフィグをはりつけたもの）に対して、各シートごとにテキスト化できる。Sub text_export() Dim str...

シート名：sample を好きな名前でコピーするVBA以下コードを、標準モジュールに貼り付けると使える。ボタンにVBAを登録しても良い。Sub sheetcopy() Dim sheetname As String sheetname = ...