![](/img/trans.png)
[英]I want to list all values in a range where adjacent cell value have:1) time difference is less than 24hour, and other cells 2) equal specific text
[英]Search range for all cells with specific text and change the value of all adjacent cell to 0
寻求帮助以实现搜索一系列单元格 E9:E 与所有包含“住宿和运输”的单元格并将与它们相邻的单元格的值更改为 0. ,我无法在网上获得任何类似主题的内容,我m VBA 编码不太好,尽管我能够理解代码将在结果中提供什么。
我有一个带有以下代码的 Commandbutton1:
Sub CommandButton1_click()
Dim blanks As Excel.Range
Set blanks = Range("F9:F" & Cells(Rows.Count, 5).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
blanks.Value = blanks.Offset(0, -1).Value
End Sub
此外,我有一个命令按钮,它将 select 仅非空白单元格。 我需要上面的结果,因为如果下面的代码从 E:F 列中选择非空白单元格,它将不会选择与包含“住宿和运输”的单元格相邻的单元格,因为它们是空白单元格,它将返回错误“运行时错误'1004'此操作不适用于多项选择”。
下面的代码与 [Go to Special => Constants] 的作用相同
Sub SelectNonBlankCells()
Dim rng As Range
Dim OutRng As Range
Dim InputRng As Range
Dim xTitle As String
On Error Resume Next
xTitle = Application.ActiveWindow.RangeSelection.Address
Set InputRng = Range("E8:F500")
ActiveWindow.ScrollRow = 1
For Each rng In InputRng
If Not rng.Value = "" Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
If Not (OutRng Is Nothing) Then
OutRng.Select
End If
End Sub
如果您的目标是编辑与某些单元格相邻的单元格,也许您可以尝试另一种方法。 以下代码基于Range.Find
function 帮助文件中的示例:
Sub DoSomething()
Dim sh As Worksheet
Set sh = ActiveSheet
Dim checkRange As Range
Set checkRange = sh.Range("E8:F500") ' your intended range to search
Dim foundRange As Range
Set foundRange = checkRange.Find("Accommodation & Transportation")
Dim firstAddr As String
If Not foundRange Is Nothing Then
firstAddr = foundRange.Address
Do
' use foundRange to access adjacent cells with foundRange.Offset(row, col)
'
'
foundRange.Offset(0, 1) = "all good"
Set foundRange = checkRange.FindNext(foundRange)
Loop While Not foundRange Is Nothing And foundRange.Address <> firstAddr
End If
End Sub
甚至更好的是,您可以添加一些参数以使其更可重用:
Sub Main()
DoSomething "Accommodation & Transportation", ActiveSheet.Range("E8:F500")
End Sub
Sub DoSomething(ByVal findWhat As String, ByVal searchWhere As Range)
Dim foundRange As Range
Set foundRange = searchWhere.Find(findWhat)
Dim firstAddr As String
If Not foundRange Is Nothing Then
firstAddr = foundRange.Address
Do
' use foundRange to access adjacent cells with foundRange.Offset(row, col)
'
'
foundRange.Offset(0, 1) = "all good"
Set foundRange = searchWhere.FindNext(foundRange)
Loop While Not foundRange Is Nothing And foundRange.Address <> firstAddr
End If
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.