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
    '↓以下の4行は1行に出来そうな気もするけど・・・
    .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

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

0 hits

【19813】列の挿入 tamago 04/11/17(水) 15:29 質問
【19851】Re:列の挿入 [名前なし] 04/11/17(水) 23:01 発言
【19860】Re:列の挿入 tamago 04/11/18(木) 9:23 発言
【19904】Re:列の挿入 [名前なし] 04/11/18(木) 22:07 発言
【19934】Re:列の挿入 tamago 04/11/19(金) 13:37 お礼

61499 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free