根据A列向J列添加确切的数字
根据A列向J列添加确切的数字
提问于 2018-10-31 06:09:31
我有一张从A到E的桌子，我不知道A列的行数，所以它可能是15或450或任何数字。我需要的是，当我运行宏时，我希望它将固定的数字"7“添加到列J1，直到A列的最后一行。我尝试了许多事情，但没有成功。
回答 3
Stack Overflow用户
回答已采纳
发布于 2018-10-31 13:50:41
让我们假设我们正在使用Sheet1。您可以从sheet1更改为：
然后试着：
Sub test()
Dim LR As Long
Dim i As Long
With Worksheets("Sheet1")
LR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("J1:J" & LR).Value = "7"
End With
End SubStack Overflow用户
发布于 2018-10-31 06:51:00
在J1中尝试此公式并将其拖动或复制到数据行的末尾：
J1中的公式：=if(A1=“，"",7)
Stack Overflow用户
发布于 2018-10-31 06:55:42
我已经解决了这个代码块的问题：
Dim LastRow As Long
LastRow = y.Sheets("csv").Cells(Rows.Count, "A").End(xlUp).Row
y.Sheets("csv").Range("J1:J" & LastRow).Value = "7"谢谢大家。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/53077271
复制相关文章
相似问题
腾讯云开发者
