被骗了

 北京真的让我越发灰心了,晚上回去房东来了,听说是租给房子我们的中介公司出问题了,公司被封,人也都抓起来了,是刑事案件。似乎来北京已经被骗2次了,感觉很无奈也是必然,似乎都没办法预防!不过结果似乎没有那么糟糕,先前以为房东会把我们赶出去,结果只是重新交钱而已,也许是悲观了一点,或许是想法幼稚了,只要给钱房东也没必要赶我们出去,他的目的也是要把房子租出去,只不过我们承担了所有的损失而已。

晚上跟妈妈电话的时候心情很不好,以至于都不想与妈妈说话,其实不想把坏心情带给她而已,感觉北京真的有太多太多的不愉快,不开心!总是处在一种干脆回武汉算了的感觉。至少在武汉,不会有那么多为金钱而疯狂的烂人
### 回答1: Sub FindData() Dim i As Integer Dim j As Integer Dim strData As String For i = 1 To Sheets.Count For j = 1 To Cells(i, Columns.Count).End(xlToLeft).Column strData = Cells(i, j).Value If InStr(strData, "被") > 0 Then MsgBox Mid(strData, InStr(strData, "被") + 2, 1) End If Next j Next i End Sub ### 回答2: 以下是一个用 VBA 代码查询 Excel 内所有包含 "被" 的表格,并提取表格内文字中 "被" 之后第一个数据的例子: ```vba Sub 提取被数据() Dim ws As Worksheet Dim rng As Range Dim searchText As String Dim searchData As String Dim foundCell As Range searchText = "被" ' 要查询的关键词 For Each ws In ThisWorkbook.Worksheets ' 遍历所有工作表 Set rng = ws.UsedRange ' 使用的范围为工作表中的所有单元格 Set foundCell = rng.Find(searchText, LookIn:=xlValues, LookAt:=xlPart) ' 查找包含关键词的单元格 If Not foundCell Is Nothing Then ' 如果找到匹配的单元格 searchData = Mid(foundCell.Value, InStr(foundCell.Value, searchText) + Len(searchText) + 1) ' 提取 "被" 之后的数据 MsgBox "在工作表 " & ws.Name & " 中找到了包含 ""被"" 的单元格,提取出的数据为: " & searchData End If Next ws End Sub ``` 这段代码会遍历所有工作表,在每个工作表上搜索包含 "被" 的单元格,并在找到的单元格内提取 "被" 之后的数据。最后,通过消息框弹出提取出的数据。 ### 回答3: 以下是一个通过VBA代码查询Excel所有包含"被"关键词的表格,并提取表格内文字中"被"之后第一个数据的示例: ```vba Sub 提取数据() Dim ws As Worksheet Dim searchRange As Range Dim cell As Range Dim firstData As String ' 遍历所有的工作表 For Each ws In ThisWorkbook.Worksheets ' 设置查询范围为当前工作表的使用范围 Set searchRange = ws.UsedRange ' 查找包含"被"关键词的单元格 Set cell = searchRange.Find("被", LookIn:=xlValues, lookat:=xlPart) ' 若找到匹配的单元格,则提取该单元格中"被"之后的第一个数据 If Not cell Is Nothing Then firstData = Mid(cell.Value, InStr(cell.Value, "被") + Len("被")) MsgBox "在表格 " & ws.Name & " 中," & vbCrLf & _ "在单元格 " & cell.Address & " 中找到了包含 ""被"" 的文字," & vbCrLf & _ "第一个数据为: " & firstData End If Next ws End Sub ``` 以上代码通过遍历所有工作表,在每个工作表中查询包含"被"关键词的单元格,并提取该单元格内"被"之后的第一个数据。如果找到匹配的单元格,将显示一个消息框,其中包含找到的表格名称、单元格地址以及提取的第一个数据。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值