◆
◇
◇
■
という列があるとすると
◆
◆
◇
◇
◇
■
となるようにしたいのです。
かなりの行数なので一括にできる方法でよろしくおねがいいたします。
Sub Macro1()
’
’ Macro1 Macro
’
’
’ Keyboard Shortcut: Ctrl+q
’
Dim a As Double
For a = 65536 To 2 Step -1
If Cells(a, 1) = ”” And Cells(a - 1, 1) <> ”” Then
Cells(a, 1) = Cells(a - 1, 1)
End If
Next a
End Sub
こんな感じですね。
回答を 増やすのも なんなので
http://www.hatena.ne.jp/1116702086
のほうの質問に対して 確認ですが、
AB CD EFの 2列ずつを
次の行に 移動させればいいだけでしょうか?
入れる場合は、挿入となるのでしょうか?
挿入する場合 65536行を 超えると 確か 最終行が 消えてしまうと思うのですが、それで いいのかな?
ありがとうございます。試してみましたが、時計が延々と回り続け、実行できませんでした。行数は500〜700行程度です。エクセル98でMacなのが問題でしょうか?
質問1116702086に関してですが、
二列の場合もあったり1列や三列の場合もあったりしますが、基本的に日付毎(30/31)に分かれたデータを項目毎に一ヵ月分を一列にしたいのです。見た感じだと65536行は越えそうにはない状態です。
例えば
1日 2日
列A時間 列B内容 列C時間 列D内容
とあると
1日の下に2日...3日と繋げていきたいのですが
日にちやシートによって行数が違うので、マクロを記録させてもエラーがでてしまいました。
もしおわかりでしたらどうぞよろしくおねがいいたします。ありがとうございます。
http://www.hatena.ne.jp/1116707111#
人力検索はてな - エクセルでA列に空白セルがある場合、すぐ上のセルの値を一括で入れるには、どうしたらいいですか? ◆ ◇ ◇ ■ という列があるとすると ◆ ◆ ◇ ◇ ◇ ■ となるように..
B列を使います。
B1には「=A1」
B2には「=IF(A2=””,B1,A2)」
を入力して
B3以降はB2を選んで下に引っ張ってコピーしてください。(←この操作何て言うんでしたっけ(^^ゞ)
で、B列は空白が埋まった値になります。
(1)B列を選んでコピー
(2)A列に形式を選択して保存
A
B
B
C
D
↓
A
A
B
B
B
C
C
C
D
D
となりました。
ありがとうございます。何故だか0が返ってきてしまいます。また色々試してみます。。
ダミーです。
回答者は2回を超えて回答できないので、takntさんに更なる協力を求めるのなら掲示板「いわし」を開くとか、なにか連絡を取れる場が必要です。
ありがとうございます。そうなんですか。2回以上回答出来ないのですね。これから出かけなくちゃいけないので、また後程いわしについて検討してみます。。ご丁寧にありがとうございます。
マクロは初心者ですが一応使えます。よければソースの御提示のほどよろしくおねがいいたします。