Question

我正在尝试为每天在工作中使用的工作表创建一个简单的宏。

基本上是关于：

工作表1单元格A2：A11中包含值，需要将这些值复制粘贴到工作表2中，每天都有一个偏移量到下一个空闲列。

到目前为止我得到的是带有一个偏移量的复制粘贴...但我不知道如何说下一个空闲列应该发生偏移。

Dim rng As Range
Dim ws As Worksheet

Range("A2:A11").Select
Selection.Copy
Sheets("Sheet2").Select
If rng Is Nothing Then
    'if nothing found - search for last non empty column
    Set rng = ws.Range("2:2").Find(What:="*", LookAt:=xlWhole, MatchCase:=False, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    If rng Is Nothing Then
         Set rng = rng.Offset(, 1)
         ActiveSheet.Paste
    End If

Answer 1

如果我理解正确，请尝试使用此代替所有当前代码

11-18 17:32:17.347 10630-10630/com.example.mudasir.login E/AndroidRuntime: FATAL EXCEPTION: main
                                                                           Process: com.example.mudasir.login, PID: 10630
                                                                           java.lang.ClassCastException: com.example.mudasir.login.fragments.LocatorsFragment$1 cannot be cast to android.location.LocationListener
                                                                               at com.example.mudasir.login.fragments.LocatorsFragment.onClick(LocatorsFragment.java:230)
                                                                               at android.view.View.performClick(View.java:4766)
                                                                               at android.view.View$PerformClick.run(View.java:19683)
                                                                               at android.os.Handler.handleCallback(Handler.java:739)
                                                                               at android.os.Handler.dispatchMessage(Handler.java:95)
                                                                               at android.os.Looper.loop(Looper.java:135)
                                                                               at android.app.ActivityThread.main(ActivityThread.java:5538)
                                                                               at java.lang.reflect.Method.invoke(Native Method)
                                                                               at java.lang.reflect.Method.invoke(Method.java:372)
                                                                               at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:960)
                                                                               at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:755)

Answer 2

Set rng = rng.End(xlToRight).Offset(0, 1)
你一直都是正确的，然后再下一个免费专栏。

带偏移的VBA宏

2 个答案: