- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
541 ：デフォルトの名無しさん[sage]：2015/07/13(月) 15:15:47.26 ID:W8qekCen - >>539
Sub test()
Dim i As Long
With ThisWorkbook.Sheets(1)
For i = 1 To .Cells(1, 1).End(xlDown).Row
.Cells(i, 1) = .Cells(i, 2) & .Cells(i, 1)
Next i
End With
End Sub
ただし、実行するたびにノーチェックでB列の内容をA列の頭に付け加えるので
何度も実行すると
鈴木 男 の場合
男男男鈴木 男 とかになる
最初の一文字をチェックするとしても
苗字が「男」で始まるもの（男澤、男鹿、男谷、男山、など）や
「女」で始まるもの（女部田、女屋、女池、など）も実在するので
そういった場合はどうすんのってことにもなりかねない
|