EXCLE の複数の行と列のデータを 1 つの列に変換する方法

EXCLE の複数の行と列のデータを 1 つの列に変換する方法

オプションベース1

スペースを除くサブセル範囲()

my As Range, my1(), c As Range

Dim p As Long

Dim i As Long

Set my = Application.InputBox(Prompt:="マウスを使用してセル範囲を選択します", Type:=8)

p = my.Count

i = 1

ReDim my1(p, 1)

For Each c In my

If c.Value "＂" then

my1(i, 1) = c.Value

i = i 1

終了の場合

次のc

Set my = Application.InputBox(Prompt:="マウスを使用して出力する最初のセルを選択します", Type:=8)

Application.ScreenUpdating = False

If i = 1 then

私 = ​​私の1

＃＃＃それ以外＃＃＃

Range(my, my.Offset(i - 2, 0)) = my1

終了の場合

Application.ScreenUpdating = True

メッセージボックス「完了しました。」

エンドサブ

このコードはあなたが望むものを達成できます。

操作方法リファレンス

Excel を使用して複数の行と列のデータを 1 つの列に配置する方法

昨日「」で回答した質問「ヘルプ: 行を列にバッチ変換する方法はありますか」を参照してください。

つまり、上記の 3 行を次の 2 列に変換します。これが意味するかどうかはわかりません。

1. セル A10 に数式を入力します:

=OFFSET($A$1,INT((ROW(A1)-1)/10),MOD(ROW(A1)-1,10))

コピーしてドロップダウンします

2. セル B10 に数式を入力します:

=IF(OFFSET($A$1,INT((ROW(B1)-1)/10),MOD(ROW(B1) 9,10) 1)=＂＂,＂＂,OFFSET($A$1 ,INT((ROW(B1)-1)/10),MOD(ROW(B1) 9,10) 1))

コピーしてドロップダウンします

3. A10:B39 の領域を選択し、右クリックしてコピーし、右クリックして [形式を選択して貼り付け] - [値] を選択します。

つまり、A10:B39のデータ領域が形成され、数式はすべて消え、すべてのセルがデータになります。

4. B 列のスペースを含む行を並べ替えて削除します。

Excel テーブルの複数の行と列を 1 つのデータ列に変換する方法

E2=IF(ROW(A1)>COUNTA($A$2:$D$9),"＂",INDIRECT(TEXT(SMALL(IF($A$2:$D$9＂",ROW($A$2) : $D$9)*100 COLUMN($A$2:$D$9),99^9),ROW(A1)),"r0c00"),))

F2=IF(ROW(A1)>COUNTA($A$2:$D$9),"＂,INDEX($A$1:$D$9,MOD(SMALL(IF($A$2:$D$9＂ " ",ROW($A$2:$D$9)/100 COLUMN($A$2:$D$9),99^9),ROW(A1)),1)*100,INT(SMALL(IF($A) $2 :$D$9＂＂,ROW($A$2:$D$9)/100 COLUMN($A$2:$D$9),99^9),ROW(A1))))

配列数式を下にコピーします [配列数式、数式を入力した後、数式編集バーにカーソルを置き、CTRL SHIFT キーと Enter キーを押して配列数式を有効にします]

以上がEXCLE の複数の行と列のデータを 1 つの列に変換する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。