| |
こんにちは。かみちゃん です。
>ここに書きこむのも初めてなので、1問ずつ質問すべきなのかもわからず
>まとめて質問させていただきます。
５つの質問の答えをひとつずつ考え始めたのですが、すでに、ちゃっぴさんやKeinさんからレスがついているので、考え終わったものだけ書いておきます。
内容は似ていますが、そこは、せっかくなのでということでご了承を。
>1. Ｈ１の値をＡ９：Ａ13までの各々のセルに
> Ｈ１７値をＡ２５：Ａ２９までの各々のセルに
> Ｈ３３の値をＡ４１：Ａ４５までの各々のセルにいれたいので
原因は、ちゃっぴさんのおっしゃるとおりです。
たとえば、以下のコードで処理できます。
Option Explicit
Sub Macro1()
Dim i As Integer
For i = 1 To 6
With Cells(16 * i - 7, 1)
.Resize(5, 1) = .Offset(-8, 7).Value
End With
Next i
End Sub
>2. Ａ列で空欄になっているセルの行を削除するマクロ
>(Ａ5のセルが空欄であれば5行目を削除)
オートフィルタで空白の行を選択することはできるのではないでしょうか？
まずは、「マクロの記録」で確認してみてください。
あとは、その見えている行をどのように消すのかということです。
>3. Ａ1：Ｏ31まで値が入っており、３２行以降が全て空欄の場合、Ｉ１からＯ３１までの値を切り取りＡ３３以降へ貼り付けるマクロはありますか？
「マクロの記録」をして、あとは、For 〜 Nextを加えて、セルの範囲を修正する
だけです。
>5. 1つのシート上に複数つくったオートシェイプ図形やワードアート文字だけを全て消去するマクロ（セルの幅や高さなどはそのまま変えずに）
以下のＵＲＬが参考になるかと思います。
http://park11.wakwak.com/~miko/Excel_Note/17-03_zukei.htm#17-03-43
なお、全般的にいえることですが、ご質問される前に、ヘルプ、過去ログの検索を
し、どうしてもわからない場合は、自分でどこまでできているかを提示するように
してみてください。
|
|
かみちゃん
- 04/12/17(金) 0:04 -
