Question

Sheets("Table").Select
Cells.Find(What:="Cat", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Offset(1, 1).Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(rowoffset:=0, columnoffset:=-1).Select
Selection.Resize(Selection.Rows.Count + 0, Selection.Columns.Count + 10).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("Table").Select
Cells.Find(What:="Bat", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Offset(1, 1).Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(rowoffset:=0, columnoffset:=-1).Select
Selection.Resize(Selection.Rows.Count + 0, Selection.Columns.Count + 10).Select
Selection.Copy
Sheets("Sheet1").Select
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

我非常擅长excel，并试图解释当我搜索的其中一个字不在桌面上时会发生的错误。我不确定如何格式化它，但基本上是第一次搜索，如果它出错，则转到下一次搜索而不进行任何选择，复制和粘贴部分（第二次搜索相同）。 / p>

Answer 1

创建一个If变量以将您的查找功能分配给，然后使用Dim fRange As Range Sheets("Table").Select Set fRange = Cells.Find(What:="Cat", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Offset(1, 1) If Not fRange Is Nothing Then fRange.Select Range(Selection, Selection.End(xlDown)).Select Selection.Offset(rowoffset:=0, columnoffset:=-1).Select Selection.Resize(Selection.Rows.Count + 0, Selection.Columns.Count + 10).Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If Sheets("Table").Select Set fRange = Cells.Find(What:="Bat", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Offset(1, 1) If Not fRange Is Nothing Then fRange.Select Range(Selection, Selection.End(xlDown)).Select Selection.Offset(rowoffset:=0, columnoffset:=-1).Select Selection.Resize(Selection.Rows.Count + 0, Selection.Columns.Count + 10).Select Selection.Copy Sheets("Sheet1").Select Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If语句来确定它是否存在。如果不是，请转到下一个。

optional func textFieldDidEndEditing(_ textField: UITextField) {

switch textField {
case rateTvA:
       rateTvB.becomeFirstResponder()
case rateTvB:
        rateTvC.becomeFirstResponder()
case rateTvC:
        rateTVD.becomeFirstResponder()
default:
    return
}
return

Excel VBA - 如何解决搜索中的错误

1 个答案: