时间戳

首页 > 解决方案 > 我的代码不会每行都放置值，而是根据源工作表布局跳过行

excel - 我的代码不会每行都放置值，而是根据源工作表布局跳过行

问题描述

我有一段代码通过 Sheet("Sub Tasks") 进行搜索，如果 A 列中的数字是小数，那么它将使 Sheet("PBS") 列 D 中的单元格 = 中找到的小数单元格的偏移量A 列。但是，我希望代码通过使工作表 PBS 中的第 2、3、4、5、6 行等 (+1) 显示来自子任务的信息。

但目前，信息显示在与 Sheet("Sub Tasks") 中相同的布局中。我从代码中遗漏了什么。


Dim Lastrow3 As Long, r As Long, n As Long, cell As Range, ws As Worksheet, Lastrow1 As Long
Lastrow3 = Sheets("Sub Tasks").Range("B" & Rows.Count).End(xlUp).Row
Lastrow1 = Sheets("PBS ").Range("D" & Rows.Count).End(xlUp).Row

n = 2
With Worksheets("Sub Tasks")
        For Each cell In Sheets("Sub Tasks").Range("A2:A" & Lastrow3)
            If IsNumeric(cell.value) Then
                If cell.value = Int(cell.value) Then
                   Worksheets("PBS ").Cells(n, "C").value = cell.value
                   Worksheets("PBS ").Cells(n, "D").value = cell.Offset(0, 1).value
                   Worksheets("PBS ").Cells(n, "B").value = cell.Offset(0, 8).value
                   Worksheets("PBS ").Cells(n, "A").value = cell.Offset(0, 7).value
                   Worksheets("PBS ").Cells(n, "H").value = cell.Offset(0, 23).value
                   Worksheets("PBS ").Cells(n, "E").value = cell.Offset(0, 3).value
                Else
                End If
            Else
            End If
        n = n + 1
    Next cell
End With
``````````````````````````

标签： excelvba

解决方案

搬到n = n + 1另一个地方。

    n = 2
    With Worksheets("Sheet1")
    For Each cell In Sheets("Sheet1").Range("A2:A" & Lastrow3)
        If IsNumeric(cell.Value) Then
            If cell.Value = Int(cell.Value) Then
               Worksheets("Sheet3").Cells(n, "C").Value = cell.Value
               Worksheets("Sheet3").Cells(n, "D").Value = cell.Offset(0, 1).Value
               Worksheets("Sheet3").Cells(n, "B").Value = cell.Offset(0, 8).Value
               Worksheets("Sheet3").Cells(n, "A").Value = cell.Offset(0, 7).Value
               Worksheets("Sheet3").Cells(n, "H").Value = cell.Offset(0, 23).Value
               Worksheets("Sheet3").Cells(n, "E").Value = cell.Offset(0, 3).Value
               n = n + 1
            Else
            End If
        Else
        End If
    Next cell
End With

推荐阅读