関数に関する質問です。


カラムA カラムB カラムC カラムD カラムE カラムF
に任意の箇所に任意の英数字が入っています。
例えば、
カラムA カラムB カラムC カラムD カラムE カラムF
AAAAa
        djijijii          dejfiji
    fjeifji

これを、縦一行に別シートでまとめる事はえきますでしょうか。
つまりシート2などに
AAAAa
djijijii
dejfiji
fjeifji
のようにです。
空欄は無視でお願いいたします。

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2014/10/21 10:04:22
  • 終了:2014/10/28 10:05:04

ベストアンサー

id:kazukichi_0914 No.1

かずきち。回答回数126ベストアンサー獲得回数82014/10/21 14:08:57

ポイント100pt

別シート参照は
http://www.relief.jp/itnote/archives/000120.php

各行に文字列は必ず1箇所なのですか?
まは元データの成形をするとこから始めないと…上手く出来ないと思いますよ。

id:martytaka

元データの成形は可能です。しかし各行に文字列は各行に必ずあるというわけではありません。。

2014/10/21 18:12:03
id:kazukichi_0914

それはまず空白行を埋めてデータ整理からしないといけませんね。
http://officetanaka.net/excel/function/tips/tips46.htm

2014/10/21 18:21:41
  • id:Sampo
    一行に2カラム入っているような行はありますか?
  • id:Yoshiya
    Option Explicit

    Private Sub Text()

    Dim MaxRow As Long
    Dim MaxCol As Long
    Dim NoCount As Long
    Dim lp1, lp2 As Long

    MaxRow = 1000
    MaxCol = 100
    NoCount = 0

    For lp1 = 0 To MaxRow - 1
    For lp2 = 0 To MaxCol - 1
    If Range("A1").Offset(lp1, lp2) <> "" Then
    Sheets("Sheet2").Range("A1").Offset(NoCount) = Range("A1").Offset(lp1, lp2)
    NoCount = NoCount + 1
    End If
    Next lp2
    Next lp1

    End Sub

    MaxRowには転記するシートの最大行、MaxColには最大列を入れてください。
    (上記サンプルでは10000行×100列)

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません