Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1747 / 76734

←次へ　｜　前へ→


	【80632】Re:型が一致しないがわかりません

ピンク - 19/3/22(金) 15:09 -


	引用なし

	パスワード

▼ゆうすけさん：
>Sub Tumeru()
>Dim i As Integer, j As Integer
>j = 1
>For i = 24 To 46
>If (Range("E" & i).Rows <> "") Then
>j = j + 1
>Range("E" & i).Copy Range("E" & j)
>Range("E" & i) = ""
>End If
>Next i
>End Sub

Sub Tumeru2()
　　Dim v As Variant, c As Range, i As Long
　　
　　With Range("E24:E46")
　　　　ReDim v(1 To .Count)
　　　　For Each c In .Cells
　　　　　　If c.Value <> "" Then
　　　　　　　　i = i + 1
　　　　　　　　v(i) = c.Value
　　　　　　End If
　　　　Next
　　　　.Value = Application.Transpose(v)
　　End With
End Sub

25 hits

▼

【80586】型が一致しないがわかりません ゆうすけ 19/3/15(金) 17:11