1
に基づいて重複した値を貼り付けるには、私はこのようになりますExcel形式持っている:私は必要なものエクセルVBA:コピーしてフォント形式
を内のすべてのデータを読み込みますExcelのVBAコードであります列Aを検索し、イタリック体のテキストを探し、同じ列に重複データがあるかどうかを確認します。データが列B
に書き込まれることはい、これは私がこれまで持っているものである場合:
Sub FillDuplicates()
Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row 'find last row in column A
For x = 1 To lastrow
If Cells(x, 2).Value <> "" Then 'Check if cell in column B is empty
For y = 1 To lastrow
If Cells(y, 1).Value = Cells(x, 1).Value Then 'Compares cell against each value in column A
Cells(y, 2).Value = Cells(x, 2).Value 'If matches, add value in column B
End If
Next y
End If
Next x
End Sub
をお試しくださいサービス。これまでに何を試しましたか?私たちにあなたのコードを教えてもらえますか? –
こんにちは、@ペ。 。これは私がこれまで持っているものです。 サブFillDuplicates() 薄暗いは限り LASTROW =細胞をLASTROW(Rows.Count、 "A")終了(xlUp).Row「の列の最後の行を見つけ のためにx = 1 lastrowする場合 セル(x、2).Value <> "" Then '列Bのセルが空であるかどうかを確認する y = 1の場合lastrowする場合 セル(y、1).Value =セル、1).Value Then '列Aの各値とセルを比較します。 セル(y、2).Value =セル(x、2).Value'一致する場合は、列Bに値を追加してください 次の例 終了If 次へx End Sub – user3445540
テキストがイタリック体であるかどうかを識別する方法があるかどうかを知りたいだけですか? – user3445540