Excel VBA質問箱 IV

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

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


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

76048 / 76732

←次へ　｜　前へ→


	【5110】Re:セルに思い通りに並べたい

ひで - 03/4/22(火) 15:02 -


	引用なし

	パスワード

▼リンチェイさん　ゆとさん　こんにちは
横から失礼します。

ほんの一例です。（もっとよい方法があると思いますが・・）

A列に数字や文字
B列以降につながった数字や文字が入ります。

Sub test1()

Dim acs As String
Dim N As Long
Dim r As Long
Dim t As Long
Dim s As Long

acs = ActiveWorkbook.ActiveSheet.Name
t = 1 '1行目
s = 2 'B列

N = Sheets(acs).Range("a" & Rows.Count).End(xlUp).Row

For r = 1 To N Step 2

Cells(t, s) = Cells(1 + r, 1) & Cells(r, 1)
t = t + 1

If t > 3 Then
s = s + 1
t = 1
Else
End If

Next r

End Sub

'win 98 Excel 2002

0 hits

▼

【5083】セルに思い通りに並べたい リンチェイ 03/4/21(月) 18:17