Excel VBA質問箱 IV

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

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


60640 / 76738 ←次へ | 前へ→

【20736】初心者です。教えてください。
質問  ほい  - 04/12/16(木) 22:07 -

引用なし
パスワード
   ここに書きこむのも初めてなので、1問ずつ質問すべきなのかもわからず
まとめて質問させていただきます。
1. H1の値をA9:A13までの各々のセルに
  H17値をA25:A29までの各々のセルに
  H33の値をA41:A45までの各々のセルにいれたいので
マクロを
For i = 1 To 6
For h = 1 To 5
Dim strname As String
Cells(16 * i - 8, 1).Offset(h, 0).Select
ActiveCell.FormulaR1C1 = Cells(1, 8).Value
Next h
Next i
End Sub
と記述するとH1の値だけが「A9:A13」「A25:A29」
「A41:A45」セルに貼り付けられてしまいます。
どのように変更すれば希望通りのマクロができますか?
(H49以降のセルに値が入っていた場合にも対応できるマクロ)

2. A列で空欄になっているセルの行を削除するマクロ
(A5のセルが空欄であれば5行目を削除)

3. A1:O31まで値が入っており、32行以降が全て空欄の場合、I1からO31までの値を切り取りA33以降へ貼り付けるマクロはありますか?
(値が47行まであり、48行以降空欄であれば、I1からO47までの値を切り取りA49以降へ貼り付けるというふうに、値の入力されている範囲(行)が変わっても、値の入っている最終行から1行あけた下の行にIからOまでの値を貼り付ける)

4. ひとつのブックに「名前」「コード」「1」「2」・・・「20」という名前のシートを作り、「名前」「コード」以外のシートの値をコピーして(新しいシートをつくり)貼り付けるマクロ
(「1」の値が30行まであれば新しいシートの30行まで貼り付け、そこから1行あけて32行以降に「2」のシートの値を貼り付けるマクロ)

5. 1つのシート上に複数つくったオートシェイプ図形やワードアート文字だけを全て消去するマクロ(セルの幅や高さなどはそのまま変えずに)

以上、質問です。端的にまとめられず、長くなってしまいましたが宜しくお願いします。
0 hits

【20736】初心者です。教えてください。 ほい 04/12/16(木) 22:07 質問
【20737】Re:初心者です。教えてください。 ちゃっぴ 04/12/16(木) 23:48 回答
【20738】Re:初心者です。教えてください。 Kein 04/12/16(木) 23:51 回答
【20739】Re:初心者です。教えてください。 かみちゃん 04/12/17(金) 0:04 回答
【20765】Re:初心者です。教えてください。 ほい 04/12/18(土) 0:00 お礼

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