A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
FindとCopyの間の「7行目のSelect」と「B7のActivate」は、どんな操作を記録したんですか?ここが決め打ちだとFindした意味が無いですよね。
たぶん、「その行をシフト+スペースで選択して」の部分だと思いますが、ここをちょっと工夫すれば、行けそうな気がします。
ちなみに、私の環境(Excel2010)では、「シフト+スペース」が上手く機能しなかったので、「End、Shift+→」で記録すると次のようになりました。これで、うまくいきませんかね?
Cells.Find(What:="総計", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ちょっと話は逸れますが、「総計」って、行の計と列の計の2ヶ所ありませんか?
これって、欲しい方がちゃんと検索できるように、すでに考慮済みと考えて良いのですよね?
No.5
- 回答日時:
こんにちは、
Dim myRange As Range
Dim srcRow As Long
Dim keyWord As String
keyWord = "総計"
With ActiveSheet
Set myRange = .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
On Error Resume Next
srcRow = myRange.Find(keyWord, LookAt:=xlWhole).Row
If Err > 0 Then
MsgBox (keyWord & "は、ありませんでした")
Else
.Rows(srcRow).Copy
.Rows(1).Insert Shift:=xlDown
.Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End With
サンプルを書きました、参考に成ればと思います。
変更や改修が必要になった時は、ご自身で直せますでしょうか?
VBAは、ある程度のスキルがない場合、デバッグにはそれなりの時間コストがかかる事を
予め認識しておく必要があると思いますのでお願いします。
No.3
- 回答日時:
「コピーして別シートで加工する」ということですが、そもそもピボットテーブルをコピーするコードは書けているのでしょうか?書けているのであれば、補足にアップしてみて下さい。
もし、それすら書けないのであれば、総計の行を選択できたとしても、どうしようも無いですよね?
No.2
- 回答日時:
#1です
マクロ実行時に総計があるセルを探しに行くので、変わっても大丈夫だと思いますよ
何より、ミニマムを作成して検証してみては?
あと、コピーについてですが、総計の行に数式がある場合、コピー先によっては
エラー(正しく計算されない)になる可能性があります。したがって値のみのコピペが良いでしょう。
この辺りは、理解しておきましょう。
No.1
- 回答日時:
こんにちは、
色々方法はあると思いますが、行はともかく列も変わりますか?
一例として
Find メソッドを使用します。 https://www.tipsfound.com/vba/07030#:~:text=%E7% …
A列固定で行が変わる場合
Sub test()
Dim myRange As Range
Dim myObj As Range
Dim keyWord As String
Set myRange = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
keyWord = "総計"
Set myObj = myRange.Find(keyWord, LookAt:=xlWhole)
If myObj Is Nothing Then
MsgBox (keyWord & "は、ありませんでした")
Else
Rows(myObj.Row).Select
MsgBox (keyWord & "は、" & myObj.Row & "行目にあります")
End If
End Sub
A列以外にも移る場合は、Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)で変更します。
複数ある場合は、参考サイトをご覧ください。
対象の行を切り取って他の行に挿入するなどは、自動記録だも出来ると思いますので、この辺で
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) ピボットテーブルへの集計フィールド挿入 1 2023/02/26 11:33
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Excel(エクセル) Excel シート複数 金額日計表と日付 簡単にシートコピーしたら前日の残高と日付を変更させたい 1 2022/07/15 22:10
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) 別シートに毎回異なるデータをコピーする 7 2022/06/24 09:02
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) 【Excelの集計について質問です。】 7 2022/12/03 16:51
- Excel(エクセル) Excel ピボットテーブルの表示方法を変更したいのですが、、、(合計値を下部に) 3 2023/06/18 21:10
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel2007のピボットの行について
Excel(エクセル)
-
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
エクセルのピボットテーブルの書式設定が、データ更新のたびに元に戻る
Excel(エクセル)
-
-
4
エクセルでエラーが出て困っています。
Excel(エクセル)
-
5
エクセル関数>参照ファイル名をセルから呼び出す
Excel(エクセル)
-
6
ピボットテーブルの結果を四捨五入するには
Excel(エクセル)
-
7
0.5時間などの時間計算の方法
その他(家事・生活情報)
-
8
エクセル 2010 ピボットテーブルの罫線について
Excel(エクセル)
-
9
リンク先のファイルを開かなくても、値が読み込めるようにできますか?(SUMIFSを使ってます)
Excel(エクセル)
-
10
ブックのピボットを別ブックにコピーして自動更新したい
Excel(エクセル)
-
11
複数のピボットを同じフィルターに連動させたいです。 年間の売り上げが1つの表にズラーっとあるのですが
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WEB上の表の列コピー選択方法は?
-
オートフィルタのリストを順番...
-
エクセルの関数の使い方 繰越...
-
一つのシートの中に複数のペー...
-
Excel 総括表のデータを分類し...
-
Excel 表から値をさがして隣の...
-
Excelの数式のコピーで列移動で...
-
【エクセル】行挿入で数式もい...
-
エクセルの列幅
-
ピボットテーブル→参照が正しく...
-
Excelセルのたて、横の並...
-
VBA csvを100万行ずつ各...
-
Excelでセル参照したとき、書式...
-
エクセルの色も=イコールでき...
-
表のセル内の右側に余白?
-
勤続年数の平均を求めたい時の関数
-
パソコンがおかしいです。 Tab...
-
デスクトップの画面を元に戻し...
-
【エクセル2002】 週番号から...
-
TVとPCをHDMIでつなげたらPCの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一つのシートの中に複数のペー...
-
WEB上の表の列コピー選択方法は?
-
エクセルで作成した縦に長い表...
-
【エクセル】行挿入で数式もい...
-
オートフィルタのリストを順番...
-
メモ帳からエクセルに貼り付け...
-
エクセルのリストから欠番を拾...
-
Excel 表から値をさがして隣の...
-
ピボットテーブル→参照が正しく...
-
Excelピボットテーブルで 総計...
-
Excelの数式のコピーで列移動で...
-
エクセルVBAで、行コピーを複数...
-
エクセルの列幅
-
エクセルの関数の使い方 繰越...
-
Excelで検索結果をテキストボッ...
-
エクセルで各ページに同じ文書...
-
エクセル シートのコピーをリ...
-
VBA csvを100万行ずつ各...
-
地番を順に並べたい。
-
エクセルに詳しい方、助けてく...
おすすめ情報
ありがとうございます!
項目数は変わらないので、列は固定です。
行だけ変わる感じです!
教えていただいたもので、総計セルを検索して、検索した行をコピーしてある行へ貼り付けるのをマクロで作成しようとすると、毎回行は固定されちゃいますか?
例えば今回総計がA50にあったとして
、総計の場所検索してコピーしてある行へ貼り付けます。その行をコピーして貼り付けます。
次回総計がA100にあったとしても、
A50の行をコピーされるのではなく、ちゃんとA100がコピーされますか?そんな都合の良い感じではできませんか?分かりにくくてすみません。
vbaできないので、マクロで操作を保存してます。
コントロール+Fで総計を検索して、
その行をシフト+スペースで選択して
A4のセルに貼り付けをしました。
貼り付けするところは同じですが、
やはり行が変わると、対応できないです。
検索は毎回できてます。
やはり無謀ですかね。。
どのようにすれば、検索した文字の列を選択できますでしょうか?お手数おかけします。