Excel VBA質問箱 IV

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

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


68736 / 76734 ←次へ | 前へ→

【12527】Re:空白でないセルの文字を抽出し詰めて表示したい。
回答  とまと  - 04/4/6(火) 21:52 -

引用なし
パスワード
   みなさんこんばんは。 
参加させてください。

for next と for each
で書いてみました。

Sub test2()

Dim i As Long
Dim m As Long
Dim c As Range

Dim ws2 As Worksheet
Set ws2 = Worksheets("Sheet2")
ws2.Rows(1).ClearContents
m = 1
With Worksheets("Sheet1")
  For i = 1 To 4
   For Each c In Range(.Cells(1, i), .Cells(65536, i).End(xlUp))
     If c.Value <> "" Then
      ws2.Cells(1, m).Value = c.Value
      m = m + 1
     End If
   Next
  Next i
End With

Set ws2 = Nothing


End Sub
0 hits

【12496】空白でないセルの文字を抽出し詰めて表示したい。 さくら 04/4/6(火) 13:31 質問
【12517】Re:空白でないセルの文字を抽出し詰めて表... Jaka 04/4/6(火) 17:22 回答
【12523】Re:空白でないセルの文字を抽出し詰めて表... さくら 04/4/6(火) 19:50 質問
【12525】Re:空白でないセルの文字を抽出し詰めて表... ichinose 04/4/6(火) 20:57 回答
【12526】それともユーザー定義関数にする? ichinose 04/4/6(火) 21:49 発言
【12534】Re:それともユーザー定義関数にする?(訂... ichinose 04/4/7(水) 7:37 発言
【12527】Re:空白でないセルの文字を抽出し詰めて表... とまと 04/4/6(火) 21:52 回答
【12545】Re:空白でないセルの文字を抽出し詰めて... さくら 04/4/7(水) 11:31 お礼
【12547】Re:空白でないセルの文字を抽出し詰めて... ichinose 04/4/7(水) 12:00 発言
【12548】Re:空白でないセルの文字を抽出し詰めて... さくら 04/4/7(水) 12:40 お礼

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