すべてのカテゴリ » インターネット・パソコン » ソフトウェア » 使い方・不具合

質問

終了

Excel 2003について質問します、下記のような場合どのようにすればいいでしょうか?
セルA1 あいうえお
セルA2 123
セルA3 かきくけこ
セルA4 456
セルA5 さしすせそ
セルA6 789
上記を一括指定で
セルA1 あいうえお123
セルA2 かきくけこ456
セルA3 さしすせそ789
セルA4 
セルA5 
セルA6 
というように文字を2行目になるごとに、1行上に繰り上げたいです。

  • 質問者:桜丘
  • 質問日時:2009-05-25 20:24:28
  • 0

並び替え:

ボタン一発じゃないのですが、
例えば、B1セルに =A1&A2 で計算式を作ります。
 もちろん、B1=あいうえお123 となります。
B1セルをB3セルにコピーすると =A3&A4 なので
 B3=かきくけこ456となります。

後は下に繰り返すことで計算は出来ますが、間に空白行が入ってしまいます。
手動で削除しても良いし、ソートなどで振り分けても良いです。

ちょっとスマートじゃないですが、難しい機能を使っていませんので分かりやすいかと思います。

  • 回答者:cappy (質問から5日後)
  • 0
この回答の満足度
  

今回の質問が、このような事を定常的に行われる/量が多いのであれば、
マクロを作成した方が良いと思います。質問の期待がどのようなものか
わかりませんので、ここには記載しませんが。

  • 回答者:MOU (質問から2日後)
  • 0
この回答の満足度
  

まず、該当する列の右隣に1列確保下さい。以下に示す手順はB列を前提としてます。
また、結果を貼り付ける列なり空きセルも用意下さい。以下手順7)で使います。

1) B1に以下の式を入力
 =IF(MOD(ROW(),2)=1,A1&A2,0)
2) B1をコピー
3) A列の該当セルに対応するB列の各セルにペースト

以上でB列の該当セルは以下の結果になるはず
あいうえお123
0
かきくけこ456
0
さしすせそ789
0

4) 数式が入力されているB列を選択
5) [F5]キーを押す
 →「ジャンプ」窓が出ます。左下の方[セル選択...]ボタンをクリック
 →「選択オプション」窓が出ます。
  左列3番目「○数式(F)」をチェック
  「文字(X)」以外のチェックを外す
 →[OK]ボタンをクリック

 →0以外が選択される状態となります
6) 選択されているセルをコピー
7) 用意した空きセルの上でマウス右ボタン
 →メニューから「形式を選択して貼り付け」
 →「形式を選択して貼り付け」窓が出ます。
  左列3番目「○値(V)」をチェック
 →[OK]ボタンをクリック

恐らくこれでお望みの結果が得られるかと。

手順細かく書いたら想像以上のボリュームになってしまいました。すみません。手順はそれほど難しくないと思います。

この回答の満足度
  

一番手っ取り早いのはマクロを使う方法だと思います。
試しに作ってみました。

' ---ここから---
' 処理中は画面の更新をしない
Application.ScreenUpdating = False
' 変数宣言
Dim targetRange As String
Dim cellVals As Variant
Dim arrayCnt As Long
' 初期化
targetRange = "A1:A65536"
cellVals = Range(targetRange)
arrayCnt = 1
' 既存の値を削除
Range(targetRange).Delete
' セルを連結
For i = 1 To UBound(cellVals) / 2
Cells(i, 1).Value = cellVals(arrayCnt, 1) & cellVals(arrayCnt + 1, 1)
arrayCnt = arrayCnt + 2
Next i
MsgBox "終わったよ"
' ---ここまで---

【マクロの作成手順】
 1.メニューの[ツール]-[マクロ]-[マクロ]を選択
 2.[マクロ名]に適当な名前を入力して、[作成]を押す。
  今回は仮に「文字連結」という名前で作ったとします。
 3.上のコードを、Sub 文字連結()とEnd Subの間にコピーする。
 4.[F5]キーを押す。
 5.[文字連結]マクロを選択して、[実行]を押す。

「終わったよ」と表示されたら処理終了です。
きちんとテストしてないので、実行前にバックアップだけはしておいてください。

  • 回答者:マクロクン (質問から3時間後)
  • 1
この回答の満足度
  

A2を指定
マクロの記録((細かい部分は憶えていないので)絶対相対の指定があれば相対で)
数式ボックスを指定
CTRL+A
CTRL+C
A1を指定
数式ボックスを指定
CTRL+V
2行を指定
CTRL+[-](キーのマイナス)

(適当なキーに)マクロ記録
記録したキーを2回押す

上手くいかない部分は調整のこと。

===補足===
「2行を指定」の部分[↓]か[Enter]の方が上手くいくかも。

  • 回答者:匿名希望 (質問から2時間後)
  • 0
この回答の満足度
  

関連する質問・相談

Sooda!からのお知らせ

一覧を見る