同じのに印

たけうちとおる (2009年5月26日) | コメント(0) | トラックバック(0)
1000行繰り返します。 C列の2行が同じならばA列に「■完全一致」という文字を挿入します。 
Sub 同じのに印()
	Dim N, T As Integer
	Dim buf1, buf2, buf3 As String
		For N = 2 To 1000
			buf1 = Cells(N - 1, 3)
			buf2 = Cells(N, 3)
			If buf2 = buf1 Then
				Cells(N - 1, 1) = "■完全一致"
				Cells(N, 1) = "■完全一致"
			End If
		Next
End Sub

カテゴリ:

トラックバック(0)

トラックバックURL: http://winnote.adg7.com/mt/mt-tb.cgi/174

コメントする

検索

リンク

このブログ記事について

このページは、たけうちとおるが2009年5月26日 16:26に書いたブログ記事です。

ひとつ前のブログ記事は「同じで無いものに印」です。

次のブログ記事は「入力ボックスを出す」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。

エントリー一覧