![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんにちは。
その質問だけですと、マクロとしてはひどく面倒な気がします。
>赤組の「鈴木」に該当
ということは、まず、「赤組」を探して、次に、「鈴木」を探す、ということではないでしょうか?
参考まで。
Sub Test1()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim i As Long
Dim j As Long
Dim find1 As String
Dim find2 As String
Dim flg As Boolean
find1 = "・赤組"
find2 = "鈴木"
Set wb1 = Workbooks("A.xls")
Set wb2 = Workbooks("B.xls")
'コピー先の行数の決定
j = wb2.Worksheets("testB").Range("D65536").End(xlUp).Row
If j < 7 Then
j = 7
Else
j = j + 1
End If
flg = False
With wb1.Worksheets("testA")
For i = 1 To .Range("A65536").End(xlUp).Row
If .Cells(i, 1).Value Like "*" & find1 & "*" Then
flg = True
ElseIf .Cells(i, 1).Value Like "・*" Then '組名には中黒点(・)が入っていること
flg = False
Exit For
End If
'今回は、鈴木と××をコピー、××だけなら、以下は、
'wb2.Worksheets("Sheet1").Cells(j, 4).Value _
'= Cells(i, 1).Offset(,1).Value
If .Cells(i, 1).Value Like "*" & find2 & "*" And flg Then
wb2.Worksheets("Sheet1").Cells(j, 4).Resize(, 2).Value _
= .Cells(i, 1).Resize(, 2).Value
j = j + 1
End If
Next i
End With
Set wb1 = Nothing
Set wb2 = Nothing
End Sub
No.2
- 回答日時:
補足訂正です。
今回の場合Range("B2").Select → Worksheets("testA").Range("B2").Select
Range("D7").Select → Worksheets("testB").Range("D7").Select
としなければならないかな。
No.1
- 回答日時:
関数(というか演算子=ですが)ではなく、値を張り付けたいのですね。
簡単にできますよ。
Sub Macro1()
'
Range("B2").Select
Selection.Copy
Windows("Book2").Activate
Range("D7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
のような感じです。Book1、Book2ともに開いている必要があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) Excelマクロの差分抽出のコードを教えていただきたいです。 2 2023/03/14 11:40
- Excel(エクセル) 【関数】【マクロ】データの転記の方法について 2 2023/07/26 15:22
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで極大値を拾うには
-
(EXCEL関数)特定範囲内の最大値
-
EXCELで2つの数値のうち大きい...
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
Excelで隣のセルと同じ内容に列...
-
エクセルで、2種類のデータを...
-
エクセル 文字数 多い順 並...
-
エクセルで最初のスペースまで...
-
エクセル(勝手に太字になる)
-
Excel関数で、範囲内の最後のセ...
-
「B列が日曜の場合」C列に/...
-
Excel関数:「0」を除いた標準...
-
エクセルで時刻(8:00~20:00)...
-
エクセルの偶数行(奇数行)の抽出
-
お店に入るために行列に並んで...
-
エクセルで、列の空欄に隣の列...
-
エクセルでオートフィルタのボ...
-
エクセルでの複数条件下での標...
-
SUMIFとCOUNTIFを合わせたよう...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで極大値を拾うには
-
エクセルVBAで別BOOKに「名前の...
-
【Excel】4行ごとの和を集計し...
-
Excelで数行間隔で離れているデ...
-
エクセルで各セルそれぞれ四捨...
-
1.5以上2.5未満の個数を求める...
-
Excel、sumifはありますが、min...
-
EXCELで2つの条件に当てはまる...
-
ネットワーク上のエクセルとリ...
-
EXCEL: 数式を含んだΣは可能で...
-
0のセルをカウント〔範囲は飛ん...
-
2つの条件を満たした金額を合計...
-
エクセル初心者です
-
(EXCEL関数)特定範囲内の最大値
-
エクセル関数使用時の範囲指定...
-
SUMIF関数の合計範囲を広くする...
-
Excelのマクロについて
-
エクセルで
-
条件付のsum,max,min関数の書き方
-
EXCEL IF関数 AND、OR条件
おすすめ情報