代码之家 › 专栏 › 技术社区 › CodeyMcCode

Excel VBA:For循环计算除最后一行之外的所有内容。缺少第一行的文本标题

vba worksheet for-loop excel

-1

CodeyMcCode · 技术社区 · 8 年前

我已经设法解决了一个问题,即我让VBA忽略我的工作表的标题行,并对剩余的数据执行计算。代码如下。然而,现在我有了它,不管我处理多少行数据,它都会错过最后一行。数据中没有理由这样做-最后一行有值,并且值的类型与代码工作的行相同。

Option Explicit

Sub CalcTotalLTA()

Dim i As Variant
Dim ws As Worksheet
Set ws = Worksheets("Input")

'counts the no. of rows in E and loops through all
For i = 2 To ws.Range("E2", ws.Range("E2").End(xlDown)).Rows.Count

'Identifies rows where columns BU has a value
If ws.Cells(i, 73).Value <> "" Then

'calculate Total LTA

ws.Cells(i, 76).NumberFormat = "0.00"
ws.Cells(i, 76).Value = ws.Cells(i, 73).Value * 20

End If

Next i

End Sub

2 回复 | 直到 8 年前

Daniel 8 年前

改变 For i = 2 To ws.Range("E2", ws.Range("E2").End(xlDown)).Rows.Count 到 For i = 2 To ws.Range("E2", ws.Range("E2").End(xlDown)).Rows.Count + 1

maaajo 8 年前

试试这个:

Sub CalcTotalLTA()

Dim i As Variant
Dim ws As Worksheet
Dim lngLRow As Long

    Set ws = Worksheets("Input")

    With ws
        lngLRow = .Cells(Rows.Count, "E").End(xlUp).Row
        'counts the no. of rows in E and loops through all
        For i = 2 To lngLRow
        'Identifies rows where columns BU has a value
            If .Cells(i, 73).Value <> "" Then
                'calculate Total LTA
                .Cells(i, 76).NumberFormat = "0.00"
                .Cells(i, 76).Value = .Cells(i, 73).Value * 20
            End If
        Next i
    End With

End Sub

推荐文章

Dave · 如何在for循环中修改列表值

1 年前

Haru Hoshizora · 为什么一个整数的位置没有改变,但值却不同

1 年前

BlurKid · R中for循环时结果的奇怪差异

1 年前

Rudraksh_pd · 取炭。通过char。c中创建字符串的输入

1 年前

Mtullis · 在我的表单值中循环遍历数组[重复]

1 年前

puboot · 我的for循环没有运行,我不知道为什么。它甚至不会在控制台上打印任何内容

1 年前

Justin Hawkins · 在一个数组中返回两个数组,其中包含带特定字母的名称和不带指定字母的名称

1 年前

leiseg · 使用扩展变量的for循环中PowerShell CLI中缺少终止符

1 年前

xhamsterIT · 循环VBA Microsoft Excel

1 年前

AlexC · 如何循环dplyr group_by并总结变量列表的语句

1 年前