行の次のセルに移動

Question

私はVBAコーディングに優れています。 私は最後の空白でないセルのアドレスをA1に格納しています。A1 そして、次に右のセルに移動したいと思います。

Dim ws As Worksheet 
Dim cell1 As String 
Dim cell2 As String 
Dim rng1 As Range 
Set ws = Sheets("ADS User Data") 
Set rng1 = ws.Rows(1).Find("*", ws.[a1], xlFormulas, , xlByColumns, xlPrevious) 
MsgBox rng1 
If Not rng1 Is Nothing Then 
    'MsgBox "rng1 contains " & rng1.Address(0, 0) 
    cell1 = (rng1.Address(0, 0)) 
    cell2 = ActiveCell.Offset(1, 0).Select() 

    MsgBox cell1 
    MsgBox cell2 
Else 
    MsgBox ws.Name & " row A1 is completely empty", vbCritical 

End If 

出力セル住所：API1

必須です：右出力セルアドレス（API1）に移動し、それが出力されAPJ1

は、誰もがplzは私を助けることができるです。

代わり：

Answer 1

現在のコードが右までなく、一つのセルつのセルを移動さ

Sub dural() 
    Dim ws As Worksheet 
    Dim cell1 As String 
    Dim cell2 As String 
    Dim rng1 As Range 

    Set ws = Sheets("ADS User Data") 
    Set rng1 = ws.Rows(1).Find("*", ws.[a1], xlFormulas, , xlByColumns, xlPrevious) 

    MsgBox rng1.Address(0, 0) & vbCrLf & rng1.Value 

    If Not rng1 Is Nothing Then 

     cell1 = rng1.Address(0, 0) 
     rng1.Offset(0, 1).Select 
     cell2 = Selection.Address(0, 0) 
     MsgBox cell1 
     MsgBox cell2 
    Else 
     MsgBox ws.Name & " row A1 is completely empty", vbCritical 
    End If 
End Sub