ExcelのVBAでフリガナも含めて名簿データを複写する方法

いつもお世話になっています。

名簿から一定の条件のものを別の一覧表に作成するVBAを作成しています。
元の名簿は名前の上にフリガナが表示されているのですが、複写した一覧表にはそのフリガナの情報が消えてしまいます。
ネットを見てもVBAでフリガナも含めての複写の方法がわかりません。

ついては 方法があればご教示ください。
下記はソースの一部です。

　　　……
Set ws = Worksheets("複写元")
Set Bws = Worksheets("複写先"）
……

Do While ws.Cells(wgyo, 4).Value <> ""

　　　　　　……

Bws.Cells(zgyo, zretu).Value = _
ws.Cells(wgyo, 4).Value

wgyo = wgyo + 1
zgyo = zgyo + 1

Loop

No.3 ベストアンサー 回答者： tatsu99 回答日時： 2018/11/01 12:40

No2です。

失礼しました。
ws.Cells(wgyo, 4).Copy (Bws.Cells(zgyo, zretu))
に変えてください。
下記がこちらで確認時のマクロです。（添付画像が実行後の結果です）

Public Sub Macro1()
Set ws = Worksheets("複写元")
Set Bws = Worksheets("複写先")
wgyo = 1
zgyo = 1
zretu = 4
Do While ws.Cells(wgyo, 4).Value <> ""

ws.Cells(wgyo, 4).Copy (Bws.Cells(zgyo, zretu))
wgyo = wgyo + 1
zgyo = zgyo + 1

Loop
End Sub

この回答へのお礼

再度のご教示ありがとうございました。

動きました！
ご丁寧にご教示いただき感謝します。
こういうソースがスラスラと書けるってすごい。
ただただ感心します。

お礼日時：2018/11/01 12:46

No.4 回答者： ryo_ky 回答日時： 2018/11/01 12:45

Bws.Cells(zgyo, ｚれつ).Phonetic.Text = ws.Cells(wgyo, 4).Phonetic.Text

これだと一応フリガナもコピーされます．

この回答へのお礼

早々のご教示ありがとうございました。

なるほど、こういうソースの書き方もあるんですね。
いろいろ勉強になります。

お礼日時：2018/11/01 12:47

No.2 回答者： tatsu99 回答日時： 2018/11/01 11:56

Bws.Cells(zgyo, zretu).Value = _

ws.Cells(wgyo, 4).Value
を
ws.Cells(wgyo, 4).Value.Copy(Bws.Cells(zgyo, zretu))
に変えてください。

この回答へのお礼

早々のご教示ありがとうございます。

早速ソースを修正しデバッグしたのですが、ご教示の行になると
「オブジェクトが必要です」のメッセージがでて停止してしまいます。

お礼日時：2018/11/01 12:19

No.1 回答者： 曾美山 回答日時： 2018/11/01 11:38

value（値）しか渡してないからでしょう。

いっそコピーしたら早いと思うけど。

フリガナはワークシートだとphoneticだけど、
VBAだとなんだったかな。

この回答へのお礼

早々のご教示ありがとうございます。

Copyしか方法はないと思うのですが、そのソースのやりかたがわかりません。
あとでphoneticをかぶせるとエクセルのデフォルトのフリガナになってしまいます。

お礼日時：2018/11/01 12:21