大佬教程收集整理的这篇文章主要介绍了在查看 ColA 的值时将 1 添加到 ColB，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
我一直在尝试遍历一个范围以在 1 中添加 ColB，同时查看 ColA 值，并且我想从高值到低值添加 1，其中 0 将为空.
您的帮助将不胜感激。
我的尝试。
Dim lastRow As Integer
lastRow = Sheet1.Cells(Rows.Count,1).End(xlUp).Row
If Sheet1.Range("A2" & lastRow).Value > 0 Then
Range("B2" & lastRow).Value = 1
ElseIf Sheet1.Range("A2").Value = 0 Then
Range("B2" & lastRow).Value = ""
End If
第二次尝试
Dim lastRow As Integer
lastRow = Sheet1.Cells(Rows.Count,1).End(xlUp).Row
Dim c As Range
For Each c In Range("A2:A50")
If c.Value > 0 Then
Sheet1.Range("B2" & lastRow).Value = 1
End If
Next c
喜欢这个
A2:A3)。如果 A2:A2，它将失败。Option Explicit
Sub SlowRange()
Dim LastRow As Long
LastRow = Sheet1.Cells(Sheet1.Rows.Count,1).End(xlUp).Row
Dim rg As Range: Set rg = Sheet1.Range("A2:A" & LastRow)
Dim c As Range
For Each c In rg.Cells
If c.Value <> 0 Then
c.offset(,1).Value = 1
'Else
' c.offset(,1).Value = Empty
End If
Next c
End Sub
Sub FastArray()
Dim LastRow As Long
LastRow = Sheet1.Cells(Sheet1.Rows.Count,1).End(xlUp).Row
Dim rg As Range: Set rg = Sheet1.Range("A2:A" & LastRow)
Dim Data As Variant: Data = rg.Value
Dim r As Long
For r = 1 To UBound(Data,1)
if Data(r,1) <> 0 Then
Data(r,1) = 1
Else
Data(r,1) = Empty
End If
Next r
rg.offset(,1).Value = Data
End Sub
以上是大佬教程为你收集整理的在查看 ColA 的值时将 1 添加到 ColB全部内容，希望文章能够帮你解决在查看 ColA 的值时将 1 添加到 ColB所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。