![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
No.2ベストアンサー
- 回答日時:
こんばんは!
「名義」?は一人当たり3行と決まっているのですかね?
VBAでの一例です。
↓の画像のような配置で元データはSheet1にあり、Sheet2に表示するとします。
尚、Sheet2のA列の「名義」?と1行目の○月の部分は入力済みだとします。
(Sheet2の1行目はシリアル値ではなく、文字列です)
標準モジュールにしてください。
Sub Sample1()
Dim i As Long
Dim lastRow As Long, lastCol As Long
Dim wS As Worksheet
Dim myRow, myCol
Set wS = Worksheets("Sheet1")
With Worksheets("Sheet2")
'//▼Sheet2のデータを一旦消去//
lastRow = .UsedRange.Rows.Count
lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
If lastRow > 1 Then
Range(.Cells(2, "B"), .Cells(lastRow, lastCol + 2)).ClearContents
End If
'//▼ココから操作//
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
myRow = Application.Match(wS.Cells(i, "E"), .Range("A:A"), False)
myCol = Application.Match(Month(wS.Cells(i, "A")) & "月", .Rows(1), False)
If IsNumeric(myRow) And IsNumeric(myCol) Then '//←念のため//
If .Cells(myRow, myCol) <> "" Then
myRow = .Cells(myRow, myCol).End(xlDown).Row + 1
End If
With .Cells(myRow, myCol)
.NumberFormatLocal = wS.Cells(i, "A").NumberFormatLocal
.Value = wS.Cells(i, "A")
.Offset(, 1) = wS.Cells(i, "B")
End With
End If
Next i
.Activate
End With
MsgBox "完了"
End Sub
※ 関数でないのでデータ変更があるたびにマクロを実行する必要があります。m(_ _)m
![「エクセルで、預金などの入金データを、行(」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/2/667667_5eb920d355a7b/M.jpg)
この回答へのお礼
お礼日時:2020/05/11 19:05
ありがとうございます。今日入門者のエクセルVBAの本を買ってきて読んでいたところに、この様なアドバイスを頂き感激です。これから、本を読みながら解読していきたいと思いますが、取り急ぎお礼です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 賃貸マンション・賃貸アパート 差押後の入居者権利について 3 2023/06/05 12:32
- ハローワーク・職業安定所 下記の条件に該当してます。 ・事業所の厚生年金被保険者が101人以上 ・所定労働時間が週20時間以上 10 2022/12/15 05:46
- Visual Basic(VBA) VBAで重複データを確認したい 5 2022/10/07 16:24
- 財務・会計・経理 簿記の質問(難問です) この場合の仕訳、記帳方法を教えてください。 6 2022/09/13 13:52
- 賃貸マンション・賃貸アパート 10年振りに賃貸アパート暮らしに入るのですが、賃貸一人暮らしって月々の費用がどのぐらい掛かっていたの 4 2023/01/09 07:53
- 引越し・部屋探し 賃貸アパートについて。 この前、不動産屋と同伴でアパートの見学に行きました。 お金について色々と聞い 5 2022/11/08 07:04
- 不動産業・賃貸業 賃貸アパートについて。 この前、不動産屋と同伴でアパートの見学に行きました。 お金について色々と聞い 5 2022/11/06 19:38
- 引越し・部屋探し 賃貸アパートについて。 この前、不動産屋と同伴でアパートの見学に行きました。 お金について色々と聞い 4 2022/11/06 21:02
- その他(悩み相談・人生相談) 現在、障害者グループホームに居住しています。 9月の末に障害基礎年金が50万円程(遡ってもらえる為) 2 2022/07/31 18:32
- 法学 不動産登記 売買を登記原因とする賃借権の移転の登記を申請 不在者の財産の管理人がする場合 1 2023/01/18 23:55
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの表で1年間の曜日を...
-
エクセルでの特別な文字を上に...
-
Microsoft Officeの中古は信用...
-
エクセルで会社の従業員のデー...
-
Excelで50個のセルに同じ文字を...
-
スプレッドシートで使う数式を...
-
エクセルでセルに標準で入力さ...
-
エクセルでB列でフィルターをか...
-
UNIQUE関数が使えないバージョ...
-
EXCELの質問です 119から足した...
-
libre 表計算ソフトの計算がう...
-
【マクロ】VLOOKUPにて参照元に...
-
お世話になります。 Excelを使...
-
【マクロ】 IFERROR関数をマク...
-
Excelで、項目の種類ごとにカウ...
-
エクセル日付 文字列の関数がエ...
-
【マクロ】セルに関数を入れる...
-
exselで最小数で並び替える関数
-
エクセルの空欄をつめて、次の...
-
Excel分析ツールでのポアソン回...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ループで呼び出しながら、追加...
-
Excelで締切日から何日経過して...
-
えきねっと事前受付について 新...
-
~「処理」を英語で?
-
何度もすみません 振込手数料は...
-
大至急! スカイマークの入金...
-
エクセルで、預金などの入金デ...
-
アダルトサイトの入金画面が消...
-
急ぎです。教えてください。
-
CICの入金状況の表示について
-
仮予約と本契約の間にキャンセ...
-
任意整理後の滞納について
-
【知人のウソ?】補助金による...
-
先程iTunesカード1500円分を購...
-
東京23区の方に質問です 10万円...
-
JTBやHISの旅行代理店の旅行代...
-
即入金を求められているのです...
-
エクセルで3ヶ月後の入金予定月...
-
モバイルスイカってクレジット...
-
paypalを用いて、海外からの入...
おすすめ情報