VBA判斷B列單元格中第第4個字符是3的在P列寫上學生,不是的寫社工
时间: 2024-04-08 21:33:36 浏览: 19
以下是根据B列单元格中第4个字符判断并在P列写入相应内容的示例VBA代码:
```vba
Sub CheckCharacter()
Dim ws As Worksheet
Dim lastRow As Long
Dim rng As Range
Dim cell As Range
' 设置要操作的工作表和范围
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的工作表名称
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
Set rng = ws.Range("B1:B" & lastRow)
' 循环遍历范围内的每个单元格
For Each cell In rng
' 检查B列单元格中的第4个字符是否为3
If Len(cell.Value) >= 4 And Mid(cell.Value, 4, 1) = "3" Then
' 如果是,则在P列写入"学生"
cell.Offset(0, 12).Value = "学生"
Else
' 如果不是,则在P列写入"社工"
cell.Offset(0, 12).Value = "社工"
End If
Next cell
End Sub
```
请将`"Sheet1"`替换为实际的工作表名称。上述代码会循环遍历B列中的每个单元格,检查其第4个字符是否为3。如果是,则在对应行的P列写入"学生";如果不是,则写入"社工"。
相关推荐
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)