
エクセル(2003)を使ってます。
下のような表があるとします
A B
1 年月日 鈴木太郎
2 2008/1/1 鈴木
3 2008/1/2
4 2008/1/3 鈴木
5 2008/1/4
6 2008/1/5
7 2008/1/6
8 2008/1/7
9 2008/1/8 鈴木
↓
A B
1 年月日 鈴木太郎
2 2008/1/1 鈴木
3 2008/1/2 1
4 2008/1/3 鈴木
5 2008/1/4
6 2008/1/5
7 2008/1/6
8 2008/1/7 4
9 2008/1/8 鈴木
B2~B9(実際にはB1500くらいまで…)の"鈴木"と"鈴木"の間にある連続した空白セルの
最後尾セルに空白の数を表示したいのです。
※ちなみにB列は同じ名前"鈴木"しか入ってません。
ご指導のほうよろしくお願いします。m(_ _)m
No.5ベストアンサー
- 回答日時:
とりあえず、今思い付いた内容を回答します。
「Sheet1」のシートが当質問の変換前の表であるものとします。
・「Sheet2」のシートを準備し、A1セルに下記式を入力後、「Sheet1」にデータがある範囲までA1の式を下及び右にコピーします。
=IF(Sheet1!A2="","",ROW())
・「Sheet3」のシートを準備し、A1セルに下記式を入力後、「Sheet1」にデータがある範囲までA1の式を右にコピーします。
=IF(Sheet1!A1="","",Sheet1!A1)
・「Sheet3」のA2セルに下記式を入力後、「Sheet1」にデータがある範囲までA2の式を下及び右にコピーします。
=IF(Sheet1!A2="",IF(Sheet2!A2="","",Sheet2!A2-MAX(Sheet2!A$1:Sheet2!A1)-1),Sheet1!A2)
・「Sheet3」のA列の書式は、当該の日付形式に設定します。
「Sheet3」のシートが当質問の変換後の表になります。
こんな感じではいかがでしょうか。
No.4
- 回答日時:
A B C D E F G H I
1 年月日 鈴木太郎 TMP1 TMP2 TMP3 TMP4 TMP5
2 2008/1/1 鈴木 1
3 2008/1/2 1 1 1 1 1
4 2008/1/3 鈴木 2
5 2008/1/4 1 1
6 2008/1/5 2
7 2008/1/6 3
8 2008/1/7 1 4 4 4
9 2008/1/8 鈴木 5
非常に“原始的”な方法ですが・・・
1.次の各セルにそれぞれ右に示した式を入力
D2: =IF(AND(B2="",B3<>""),1,"")
E2: =IF(AND(B2="",B1<>""),1,"")
F2: =IF(E2=1,1,SUM(F1,1))
G2: =IF(D2=1,F2,"")
2.範囲 D2:G2 を下方にズズーッとドラッグ&ペースト
3.範囲 G2:G9 を[コピー]して、セル I2 に[値の貼り付け]
4.セル I1 で[オートフィルタ]を設定して“(空白セル)”でデータを
抽出
5.列Iには抽出された(空白セルに見える)データを全部選択して、
Deleteキーを一発パシーッ
6.セル I1 で設定していた[オートフィルタ]で“(すべて)”を選択
(あるいは[オートフィルタ]を解除)
7.範囲 I2:I9 を[コピー]した後、セル B2 の右クリックから[形式を
選択して貼り付け]を選択
8.“空白セルを無視する”にチェック入れ
9.[OK]をクリック
ご回答ありがとうございます。m(_ _)m
初心者にとてもわかりやすい解説感謝します。
質問のところで説明不足でした…実は
C列、D列、E列・・・にもB列同様違う名前の列が続いてるんです…
No.3
- 回答日時:
>最後尾セルに空白の数を表示したいのです。
◆ご要望の通りではなく、下のようでもいいなら
A B
1 年月日 鈴木太郎
2 2008/1/1 鈴木
3 2008/1/2 1
4 2008/1/3 鈴木
5 2008/1/4 1
6 2008/1/5 2
7 2008/1/6 3
8 2008/1/7 4
9 2008/1/8 鈴木
■手順■
1)B1:B9 の範囲を指定します
2)ツールバーの「編集」→「ジャンプ」→「セル選択」を選択します
3)「空白セル」にチェックして、OK
4)そのままで、数式バーに、 =ROW()-MATCH("",$B$1:B2,-1) 数式を入力して、Ctrlを押しながらEnterを押します
素早いご回答ありがとうございます。m(_ _)m
ただ「最後尾セルに空白の数を表示したい」の部分を
重要視していますので…
でもとても勉強になりました。
No.2
- 回答日時:
見た目だけ事であれば
C2に
=IF(B2<>"",B2,IF(B1<>"",1,C1+1))
D2に
=IF(B2<>"",C2,IF(B3<>"",C2,""))
と入力し
C2:D2をコピーしてC3:D最終行までを選択して貼り付け
列C:Dを非表示
もしくは、D列を選択してコピー、B列を選択し編集(E)から形式を指定して貼り付け(S)を選び値(V)を選択してOK
C:D列を削除
こんなもんでいかがかしら?
No.1
- 回答日時:
VBAでやる例です。
普通にループを回してもつまらないので、短いコードにチャレンジしてみました。Sub test()
Dim emptyArea As Range
Dim myArea As Range
Set emptyArea = ActiveSheet.Range("a1").CurrentRegion.Columns(2).SpecialCells(xlCellTypeBlanks)
For Each myArea In emptyArea.Areas
myArea.Cells(myArea.Rows.Count, 1) = myArea.Rows.Count
Next
End Sub
素早いご回答ありがとうございます。m(_ _)m
簡単な関数でできればと思ったのですが、やはりVBAでやったほうが
スッキリとできるんでしょうね。
実はまだエクセル初心者マークでして…
VBAは一度もやったことがないんです…
(ループ???こんな感じです)
ただこれを機にVBAを一から勉強してみようかと思いました。
ぜひ教えてもらった短いコードを試してみたいです!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) メモ帳からエクセルにセル区切りで表示させたいんです 7 2023/02/25 22:04
- PHP MySql PHP 2つのテーブルをJOINで結合 user_idで抽出 1 2023/01/03 14:04
- Excel(エクセル) エクセルで複数条件の重複チェック 3 2022/05/17 13:57
- その他(データベース) 20万行あるデータを動かしたい 2 2023/06/13 15:21
- その他(社会・学校・職場) 先日地元の駅のイベントで「スミレの苗の鉢植えをプレゼントします。ただし自宅に持ち帰るのではなく、一緒 1 2022/09/24 13:51
- 野球 鈴木啓示の鬼畜老害ポンコツ野郎は世界一の名将・我らが近鉄仰木彬大監督がイチから作り上げて優勝争いを出 2 2022/07/22 11:29
- Access(アクセス) アクセスで教えてください。 例えばテーブル1に 1 佐藤 2 鈴木 3 佐々木 コードと住所一覧があ 3 2022/06/11 20:45
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Visual Basic(VBA) 【ExcelVBA】動的にボタン、ボタン名を生成できますか? 7 2022/04/08 12:54
- Excel(エクセル) Excelについて教えてください。 帳票データがあります。 アクセスに取り込むため、 データ形式にし 1 2022/06/08 19:59
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
9月17日でサービス終了らし...
-
エクセル ドロップダウンリスト...
-
特定のセルだけ結果がおかしい...
-
【マクロ】【配列】3つのシー...
-
エクセルのdatedif関数を使って...
-
【関数】同じ関数なのに、エラ...
-
エクセルの循環参照、?
-
【マクロ】列を折りたたみ非表...
-
【マクロ】アクティブセルの時...
-
iPhoneのExcelアプリで、別のシ...
-
【マクロ】EXCELで読込したCSV...
-
【条件付き書式】シートの中で...
-
【マクロ】オートフィルターの...
-
【マクロ】3行に上から下に並...
-
vba テキストボックスとリフト...
-
【マクロ】A列にある、日付(本...
-
ページが変なふうに切れる
-
エクセルのVBAで集計をしたい
-
エクセル
-
Excelファイルを開くと私だけVA...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelファイルを開くと私だけVA...
-
エクセルについてどう関数を使...
-
マクロ・VBAで、当該ファイルの...
-
エクセルのセルに画像は埋め込...
-
エクセルで、一部のセルだけ固...
-
【マクロ、画像あり】A表かB表...
-
エクセルでカウントする
-
【マクロ】コードを少しでも、...
-
VBA_日時のソート
-
エクセルで教えてください。 例...
-
エクセル 月間シフト表で曜日ご...
-
セルの左に余白を付ける
-
エクセル
-
エクセルについて教えてください
-
2枚のエクセル表で数字をマッチ...
-
ExcelのIF関数との組み合わせの...
-
エクセルのファイルのコピーを...
-
エクセルで二つのブックの違い...
-
空白処理を空白に
-
Excelのチェックボックスについ...
おすすめ情報