いつも大変お世話になっております。
VBA初心者です。Excel2007、XPを使用しております。
データの状態ですが、
AからQ列まである顧客データ(1行目は見出し、2行目以降がデータ)を、
Sheet2へ参照で並び変えしてます。
Sheet2はAからM列になっており、こちらも1行目見出し、2行目以降データです。
見出しのみ色付けしており、このSheet2はデータを蓄積していってます。
Sheet1は新規データ貼付用
Sheet2は参照されたデータの蓄積
Sheet3はcsv保存用
目的は、Sheet2でオートフィルにより、色なしを表示し、2行目以降をコピー、
Sheet3へ値貼付、csv保存。値削除。
Sheet2の色なしを色付け(濃いグレー)。
以上の動作をしたいのですがうまくいかず、大変困っております。
お手数ですがご教授お願い致します。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
「マクロの記録」だけで作れそうですが・・・
セルの選択は、「Alt+Shift+↓」みたいなキー操作を駆使すると、データ数に関係なく動かせますよ。
具体的に分からない点があれば、補足してください。
この回答への補足
ありがとうございます!
フィルタ後の行が変数な為、記録ではうまくいきません。
とりあえず記録したものが下記ですので、ご覧頂けますでしょうか。
Sub test()
Sheets("Sheet2").Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$M$50").AutoFilter Field:=1, Operator:= _
xlFilterNoFill
Rows("8:8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet3").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet3").Select
Sheets("Sheet3").Copy
ActiveWorkbook.SaveAs Filename:= _
"\\C:\Documents and Settings\ユーザー1\My Documents\n" & Format(Now, "m-d") & "-1", FileFormat:= _
xlCSV, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Sheets("Sheet3").Range("2:50").ClearContents
Application.ScreenUpdating = True
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A2").Select
Sheets("Sheet2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
Selection.AutoFilter
Range("A2").Select
End Sub
> Rows("8:8").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.Copy
csv保存後に可視セルのみ色付けしたいのですが、
空白セル(参照式入り)まで全て色づけられるため困ってます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBAでvlookup関数から、別シート参照するやり方・・・ 2 2022/11/14 18:49
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Excel(エクセル) 【Excel質問】別シートにある複数の同型の表から、同じ行項目にある数字を集計する 4 2023/02/16 00:14
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
射精をして1週間以内に尿検査を...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
今朝、毎朝の習慣でオナニーし...
-
変な話しになります。尿検査で...
-
1日前の検尿
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
検便についてです。 便は取れた...
-
EXCELで条件付き書式で空白セル...
-
小数点以下を繰り上げたものを...
-
勃起する時って痛いんですか? ...
-
男です。昨日の午後3時くらいに...
-
2つの数値のうち、数値が小さい...
-
これって喉仏ですか? 私は女性...
-
EXCELで式からグラフを描くには?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報