ここから本文です

エクセル2013で二列を一列にまとめたい場合はどうしたら良いですか?

jsj********さん

2017/3/1818:10:42

エクセル2013で二列を一列にまとめたい場合はどうしたら良いですか?

因みに
a
b
c d
e f
g
h i
j
k
l m
n
o p
q
r
s t
u v
w
x
y
z


という配列を

a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z

に、一列にしたいです。

マクロ初心者で参考書を読んでも解決できませんでした。
また複数列の場合はどうしたらよいですか?

宜しくお願いします。

閲覧数:
120
回答数:
1

違反報告

ベストアンサーに選ばれた回答

kky********さん

2017/3/1819:14:22

元のデータをSheet1としてSheet2に結果を出すようにしました。
2列でなくても、どんな複数列でも対応できます。

Sub Sample()
Dim sh1, sh2 As Worksheet
Dim i, j, k As Long
Application.ScreenUpdating = False
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
With sh1
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To .Cells(i, Columns.Count).End(xlToLeft).Column
k = k + 1
sh2.Range("A" & k).Value = .Cells(i, j).Value
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub

  • 質問者

    jsj********さん

    2017/3/2109:15:53

    ありがとうございます。
    出来ました。

    ただ数値になるとうまくいきません。
    -48
    -46
    -44 -44
    -41 -41
    -39
    -36 -36
    -35
    -32
    -29
    -27 -29
    -25
    -23 -25
    -20
    -17
    -15 -17
    -12

    -48
    -46
    -44
    -44
    -41
    -41
    -39
    -36
    -36
    -35
    -32
    -29
    -27
    -29
    -25
    -23
    -25
    -20
    -17.3
    -15.2
    -17
    -12.2
    にしたいのですが空欄部分の0が記入されてしまいます。

    お力を貸してください。

  • その他の返信を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この回答は投票によってベストアンサーに選ばれました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる