写一段Vba代码,取b列前5个字放到f列
时间: 2023-05-16 21:04:32 浏览: 49
Sub CopyFirstFiveChars()
Dim i As Integer
For i = 1 To 5
Range("F" & i).Value = Left(Range("B" & i).Value, 5)
Next i
End Sub
相关问题
用vba写一段提取A列数据中前两个字符并写入到B列中
您好!以下是用 VBA 在 Excel 中提取 A 列数据中前两个字符并写入到 B 列中的代码:
```vb
Sub extract()
Dim lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row '获取 A 列最后一行行号
For i = 1 To lastRow '遍历 A 列
Range("B" & i).Value = Left(Range("A" & i).Value, 2) '将 A 列当前行前两个字符写入 B 列当前行
Next i
End Sub
```
您可以将此代码复制到 Excel 的 VBA 编辑器中,然后运行它即可实现提取和写入操作。
写一段vba代码,在Excel表格中B列中的每一个表格内加中文字“籍”
Sub AddWord()
Dim xCell As Range
For Each xCell In Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
xCell.Value = xCell.Value & "籍"
Next
End Sub