A 回答 (7件)
- 最新から表示
- 回答順に表示
No.7
- 回答日時:
これもクエリを使えばできますけどね。
インデックス列を追加してからカスタム列で「下の値」を代入して
いけばいいです。
範囲をテーブル書式で取り込み(列名「列1」)
取り込んだ列をテキスト列に変換
インデックスを「0」からで追加
「シフト」列を追加
= Table.AddColumn(追加されたインデックス, "シフト", each if Text.Contains([列1], "曜日") then 変更された型[列1]{[インデックス]+1} else null)
他の列も同様。最終行だけ「6行下がない」時と「6行下に曜日が含まれ
る」時だけ表示させない設定に変更
Table.AddColumn(追加されたカスタム4, "早遅", each if List.Max(追加されたインデックス[インデックス])-6>=[インデックス] then if Text.Contains([列1], "曜日") then if not Text.Contains(変更された型[列1]{[インデックス]+6}, "曜日") then 変更された型[列1]{[インデックス]+6} else null else null else null)
最後に「null」の行を取り除いて 読み込めばおしまい。
![「縦の出勤データを日毎に横に並べ替え」の回答画像7](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/3/542290997_5df6e0a8683be/M.png)
No.6
- 回答日時:
Q1
備考欄に記載事項がない場合でも空欄にするようにできないのでしょうか?
規則性がないとエクセルで処理するメリットが薄れます。
Q2
元データ自体を横に並べて出力できないでしょうか?
No.4
- 回答日時:
マクロになりますが以下のような物はいかがでしょうか?
(罫線などもコピーされるし日付データでもそのまま使えます)
Sub Sample()
Dim 元 As Long
Dim 先 As Long
元 = 1
Columns("C:I").Delete Shift:=xlUp
Do While 元 < Cells(Rows.Count, 1).End(xlUp).Row
先 = 先 + 1
Range(Cells(元, 1), Cells(元 + 6, 1)).Copy
Cells(先, 3).PasteSpecial Transpose:=True
Cells(先, 9).Columns.AutoFit
If Right(Cells(先, 9).Text, 3) = "曜日)" Then
元 = 元 + 6
Cells(先, 9).ClearContents
Else
元 = 元 + 7
End If
Loop
Application.CutCopyMode = False
Columns("C:I").Columns.AutoFit
End Sub
'※ もしうまく動かなければ「 If Right(Cells(先, 9).Text, 3) = "曜日)" Then」を
'「 If Right(Cells(先, 9).Text, 4) = "曜日) " Then」や
'「 If Right(Cells(先, 9).Text, 3) = "曜日)" Then」に変えてみて下さい。
No.3
- 回答日時:
確認していただけますか?
・ A1、A7、A14セルの表示形式はどうなっていますか?
①「G/標準」
②「@」
③「d"("aaaa")"」
④ その他(実際の表示形式をご提示ください)
・ A1セルを選択した時に数式バーにはどのように表示されていますか?
⑤ セルに表示されている物と同じ
⑥「2019/12/1」のような日付が表示される
⑦「=○○」のような計算式が表示される
⑧ その他(実際に表示されている物をご提示ください)
No.2
- 回答日時:
No.1です。
関数での方法をご希望だというコトなので・・・
無理やりやってみました。
↓の画像では、まずC1セルに
=IFERROR(INDEX(A$1:A$1000,SMALL(IF(ISNUMBER(FIND("曜日",A$1:A$1000)),ROW(A$1:A$1000)),ROW(A1))),"")
配列数式なので、Ctrl+Shift+Enterで確定!(←必須★)しておきます。
次にA列の「備考」の次の行はあっても1行だけという限定ですが、
D1セル(←配列数式ではありません)に
=IFERROR(IF(OR(COUNTIF(OFFSET(INDIRECT("A"&MATCH($C1,$A:$A,0)),COLUMN(A1),,1),"*"&"曜日"&"*"),OFFSET(INDIRECT("A"&MATCH($C1,$A:$A,0)),COLUMN(A1),,1)=""),"",OFFSET(INDIRECT("A"&MATCH($C1,$A:$A,0)),COLUMN(A1),,1)),"")
という数式を入れフィルハンドルでI列までコピー!
E1・F1セルの表示形式を好みの「時刻(時間)」にし
C1~I1セルを範囲指定 → I1セルのフィルハンドルで下へコピーすると
画像のような感じになります。m(_ _)m
![「縦の出勤データを日毎に横に並べ替え」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/9/667667_5df3a4207ee77/M.jpg)
No.1
- 回答日時:
こんばんは!
A13の「早退」がなければすべての曜日に規則性があるようなので
関数で出来そうですが・・・
手っ取り早くVBAでの一例です。
尚、画像の配置通り
A列は1行目からデータがあり、B列は何も使っていなくてC列以降に表示するとします。
Sub Sample1()
Dim i As Long, cnt As Long
'//一旦C列以降を消去//
Range("C1").CurrentRegion.ClearContents
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If InStr(Cells(i, "A"), "曜日") > 0 Then
cnt = cnt + 1
Cells(cnt, "C") = Cells(i, "A")
Else
Cells(cnt, Columns.Count).End(xlToLeft).Offset(, 1) = Cells(i, "A")
End If
Next i
Range("E:F").NumberFormatLocal = "h:mm"
End Sub
とりあえずはお示しの画像のような感じになると思います。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelで横書き50行の漢字テストデータを縦書きのテスト問題にしたい。 6 2022/04/27 15:03
- Excel(エクセル) エクセルでのマクロを使ったデータの並べ替え 3 2022/12/03 18:54
- その他(Microsoft Office) エクセルで串刺ししたシートの並べ替えをしたいです 4 2023/02/14 11:59
- Visual Basic(VBA) 【ExcelVBA】Powerクエリーでいうピボット解除と同じ処理をVBAで 4 2022/07/06 17:09
- Excel(エクセル) Googleスプレッドシートの割合の関数と円グラフの並べ替えについて 1 2022/07/22 17:31
- Excel(エクセル) 同じ品番のマスタで最新日付のものに〇印を入れたい 3 2023/03/31 17:45
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- 画像編集・動画編集・音楽編集 A1サイズで画像作成(300枚以上の写真を並べたいです) 1 2023/08/03 12:18
- Excel(エクセル) excelで1行ごとに一気に削除する方法はありませんか? 3 2022/05/18 20:58
- 葬儀・葬式 日本って土地が狭いから、火葬なんですか? 2 2022/11/13 21:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのツールバーから数値...
-
祝日と土曜、日曜の合計をカウ...
-
【マクロ】2回実行したら、エ...
-
特定の文字列を含む、住所を抽...
-
EXCELの散布図で日付が1900年に...
-
マイクロソフトのPADを使ってい...
-
Excel分数の表示について
-
Excelで表を作ったところに文字...
-
マクロエクセルのブロック解除
-
文字2桁、3桁交じりの文字列...
-
絶対参照
-
Excelについての質問です。 B2...
-
在庫管理表に使うエクセルの関...
-
【マクロ】VLOOKUPにて参照元に...
-
【EXCEL】画像の黄色部分の抽出...
-
DATE関数で現在の年齢を出した...
-
ユーザー定義関数をアドイン登...
-
エクセルでの作業計算方法について
-
行数が不規則な一週間ごとの合...
-
Excelピボットテーブルの1行目
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報