（参考データ） ↓ （参考データ 実行後） Public find_word As String Public find_word_len As Integer Public MaxRow As Integer Public MaxRow2 As Integer Public NewWorkSheet As Worksheet Public BaseWorkSheet As Worksheet Public StartTime As Sin…

44行目から58行目は、任意の処理に置き換えれば流用可能。 '特定フォルダ直下に含まれるxls,xlsxファイルのすべてのシートに対しすべてに同じ処理を行う Sub Excel_book_change() Dim FolderName As String '文字列を入れる変数として「FolderName」を使う D…

Sub sheet_merge() Dim i As Integer Dim lRow As Long, lCol As Long, lRow2 As Long Dim newSh As String Dim Sh As Worksheet, myFlag As Boolean Application.ScreenUpdating = False newSh = "全データ" 'まとめ用のシート名です myFlag = False 'まと…

実行イメージ ＃使い方とかがかっこ悪いので時間はがある時に見直す予定。 Sub group_out_line() ' 使い方 ヘッダを除く表範囲(表範囲は最下行＋1行)を選択してこのマクロを動かす。 '表の対象範囲を取得する t = Selection.Address t = Replace(t, "$", "")…

実行イメージ(市を赤太文字に変更。) Sub font_color_change(a_sSearch, a_lColor, a_bBold) Dim f As Font 'Fontオブジェクト Dim i '引数文字列のセルの位置 Dim iLen '引数文字列の文字数 Dim r As Range 'セル範囲の１セル iLen = Len(a_sSearch) i = 1 …