0
Sheet( "Company")の列Aの値と "Current"の列Eの値を一致させるマクロを作成しようとしています。一致するものがあり、この右側のセル28( "Current")が空白の場合、 "Company"の各セルの右側にセルをコピーして貼り付けます。 Sheet( "Company")の列Aのすべての値をループします。さらに困難な場合は、ActiveSheetユーティリティを実装することができればと思って、「会社」だけでなく他のシートにも適用することができます。ここで私が持っているものだ...ワークシート上のセルを一致させ、関連するセルをコピーして貼り付けるマクロ
Option Explicit
Sub CopyPaster()
InvestorName As String
InvestorName = ActiveCell.Value
With Sheets("Current")
For i = 11 To 500:
If i = InvestorName And Cells(i, 27) = 0 Then
Sheets("Company").ActiveCell.Offset(0, 3).Copy
Sheets("Current").Cells(i, 28).PasteSpecial
Next i
End Sub
まず現在のシートを示し、第2の画像は、私がからコピーしたい会社シートの1つの例です。
正確にあなたは立ち往生していますか、どのようなエラーが発生していますか? –
'If If = InvestorName And Cells(i、27)= 0 Then'に' End If'がありませんか? With Sheets( "Current") '? –
@ user6701007両方のワークシートでデータのサンプルを共有してください。コードの望ましい結果はどのようなものでしょうか? –