Question

我在向Sheet2显示此代码的结果时遇到问题。有没有办法转换此代码以使其显示在特定的工作表中？让我们说Sheet2？

cell.Offset（，.Columns.Count + 1）= rowOffset

这里是整个代码：

＆＃13;

Option Explicit

Sub main()
    Dim cell As Range, f As Range
    Dim rowOffset As Long

    With Worksheets("gaps").Range("A2:F2000")
        For Each cell In .SpecialCells(xlCellTypeConstants, xlNumbers)
            rowOffset = 1
            Set f = .Find(what:=cell, after:=cell, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious)
            If Not f Is Nothing And f.Row <= cell.Row Then rowOffset = cell.Row - f.Row + 1
            
            cell.Offset(, .Columns.Count + 1) = rowOffset '<--| Modify this code to have it displayed in a specific worksheet
        
        Next cell
    End With
End Sub

＆＃13;

Answer 1

也许

Worksheets("Sheet2").Cells(cell.Row, cell.Column + .Columns.Count + 1).Value = rowOffset

在另一个工作表

1 个答案: