0

問題-数千の住所が記載されたスプレッドシートがありますが、郡はありません。

目標-各レコードに郡を追加したいと思います。郵便番号を使用して郡を識別し、郵便番号と郡名のリストを作成できます。

これまでに試したこと-郡名は列Aにあり、対応する郵便番号は列Bにあります。住所リストを同じスプレッドシートにコピーし、列Dの郵便番号から始めました。

ここに画像の説明を入力してください

郵便番号を比較して郡名に置き換えるために、次の簡単なマクロを作成しました。実行されますが、何も置き換えられていないようです。エラーが発生しないので、どこに問題があるのか​​わかりません。何か案は？

  Public Sub Take_Two_Replace_Zip_With_Name()

  Dim LastBCell As Long
  Dim B As Integer
  Dim Bcell As Range

  LastBCell = ActiveSheet.Range("B65000").End(xlUp).Row

  For B = LastBCell To 2 Step -1
  Set Bcell = ActiveSheet.Cells(B, 2)

  If Bcell = Bcell.Offset(0, 2) Then Bcell.Offset(0, 2) = Bcell.Offset(0, -1)
  Next B

  End Sub
4

1 に答える 1

0

OK、私はそれを自分で解決しました：

  For Each Bcell In Range("B2:B100").Cells

  Columns("D:D").Cells.Replace What:=Bcell, Replacement:=Bcell.Offset(0, -1).Value,          LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False

  Next Bcell
于 2012-06-30T01:25:24.507 に答える