|
こんばんは。
少し詰まってしまったので質問させてください。
A列
佐藤
田中
山田
三谷
境
田中
山田
境
とあるのですが、B列にグループ分けした結果を表示したい
と思っています。
佐藤さんと三谷さんは第一グループ
田中さんと山田さんは第二グループ
境さんは第三グループ
なので
A列 B列
佐藤 第一グループ
田中 第二グループ
山田 第二グループ
三谷 第一グループ
境 第三グループ
田中 第二グループ
山田 第二グループ
境 第三グループ
という結果にしたいのです。
sub グループ()
dim C as long
C=worksheets("sheet1").range("A1:A8").find("佐藤",lookat:=xlpart).row
if not status is nothing then
cells(C,2).value="第一グループ"
do
C.select
set C=.find(C)
loop while C.value="佐藤" and cells(C,2).value="第一グループ"
end if
end sub
どう書き換えればいいのでしょうか。
どうぞ宜しくお願いします。
|
|