| |
ここに書きこむのも初めてなので、1問ずつ質問すべきなのかもわからず
まとめて質問させていただきます。
1. Ｈ１の値をＡ９：Ａ13までの各々のセルに
Ｈ１７値をＡ２５：Ａ２９までの各々のセルに
Ｈ３３の値をＡ４１：Ａ４５までの各々のセルにいれたいので
マクロを
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
と記述するとＨ１の値だけが「Ａ９：Ａ13」「Ａ２５：Ａ２９」
「Ａ４１：Ａ４５」セルに貼り付けられてしまいます。
どのように変更すれば希望通りのマクロができますか？
（H４９以降のセルに値が入っていた場合にも対応できるマクロ）
2. Ａ列で空欄になっているセルの行を削除するマクロ
(Ａ5のセルが空欄であれば5行目を削除)
3. Ａ1：Ｏ31まで値が入っており、３２行以降が全て空欄の場合、Ｉ１からＯ３１までの値を切り取りＡ３３以降へ貼り付けるマクロはありますか？
(値が４７行まであり、４８行以降空欄であれば、Ｉ１からＯ４７までの値を切り取りＡ４９以降へ貼り付けるというふうに、値の入力されている範囲(行)が変わっても、値の入っている最終行から1行あけた下の行にＩからＯまでの値を貼り付ける)
4. ひとつのブックに「名前」「コード」「1」「2」・・・「20」という名前のシートを作り、「名前」「コード」以外のシートの値をコピーして（新しいシートをつくり）貼り付けるマクロ
（「1」の値が30行まであれば新しいシートの30行まで貼り付け、そこから１行あけて32行以降に「2」のシートの値を貼り付けるマクロ）
5. 1つのシート上に複数つくったオートシェイプ図形やワードアート文字だけを全て消去するマクロ（セルの幅や高さなどはそのまま変えずに）
以上、質問です。端的にまとめられず、長くなってしまいましたが宜しくお願いします。
|
|
ほい
- 04/12/16(木) 22:07 -
