|
▼nossori さん 小僧 さん ありがとうございました。
>kk様の希望どおりなのでしょうか?
「〃」でも良かったので、だるま さんの言うようにデータ処理上と表の扱いやすさで「〃」にしました。セル結合のVBAも今後の参考にさせていただきます。
>どのような作業でこのようなマクロが必要なのかも興味があります。
AccessデータをExelに書き出して、見やすく印刷するのと、氏名等の重複を除いたナンバリングをするためでした。
皆様のアドバイスを参考に下記を作りました。ありがとうございました。
Sub bangou()
Dim myRange As Range
Dim i As Long
Dim n As Long
If ActiveCell = "" Or ActiveCell.Offset(1) = "" Then
MsgBox "カーソル位置又は下にデータがありません", vbOKOnly, "実数ナンバリング"
Exit Sub
ElseIf ActiveCell = "" Or ActiveCell.Offset(, -1) <> "" Then
MsgBox "左列にデータがあります", vbOKOnly, "実数ナンバリング"
Exit Sub
End If
Set myRange = Range(ActiveCell, ActiveCell.End(xlDown))
n = 1
With myRange
For i = 1 To .Cells.Count Step 1
If .Cells(i).Value <> "〃" Then
.Cells(i).Offset(, -1).Value = n
.Cells(i).Offset(, -1).HorizontalAlignment = xlRight
n = n + 1
ElseIf .Cells(i).Value = "〃" Then
.Cells(i).Offset(, -1).Value = "〃"
.Cells(i).Offset(, -1).HorizontalAlignment = xlRight
End If
Next
End With
End Sub
|
|