Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61499 / 76732

←次へ　｜　前へ→


	【19851】Re:列の挿入

[名前なし] - 04/11/17(水) 23:01 -


	引用なし

	パスワード

とりあえず短くしてみました。

Sub データ処理()
　　Cells.EntireColumn.Hidden = False
　　Range("A14:E14").Cut Range("A8:E8")
　　Range("A15:D17").Cut Range("A9:D11")
　　Range("F15").AutoFill Range("F15:F23")
　　With Range("F24")
　　　　.Value = "使用制限対象物質"
　　　　.Font.Size = 9
　　　　'↓以下の４行は１行に出来そうな気もするけど・・・
　　　　.Characters(1, 2).PhoneticCharacters = "シヨウ"
　　　　.Characters(3, 2).PhoneticCharacters = "セイゲン"
　　　　.Characters(5, 2).PhoneticCharacters = "タイショウ"
　　　　.Characters(7, 2).PhoneticCharacters = "ブッシツ"
　　End With
　　Range("F24:F30").FillDown
　　Range("F31").AutoFill Range("F31:F43")
　　Range("F12:I12").Copy Range("A15:D43")
　　Columns("J:J").Insert Shift:=xlToRight
　　With Range("J14")
　　　　.Value = "質量"
　　　　.Font.Size = 10
　　　　.Characters(1, 2).PhoneticCharacters = "シツリョウ"
　　End With
　　Range("G8").Copy Range("J15:J43")
　　Range("A14:O43").AutoFilter Field:=9, Criteria1:="<>"
End Sub

特に余分な行を挿入してる部分はないようですけど。
作ったマクロはこれだけですか？

2 hits

▼

【19813】列の挿入 tamago 04/11/17(水) 15:29