VBA：如何从字符串中删除最后一个字符 |
您所在的位置：网站首页 › vba去除末尾字符串中的空格 › VBA：如何从字符串中删除最后一个字符 |
VBA：如何从字符串中删除最后一个字符
|
Vba：如何从字符串中删除最后一个字符经过 本杰明·安德森博
7月 11, 2023
指导
0 条评论 您可以使用以下基本语法通过 VBA 删除字符串中的最后一个字符： Sub RemoveLastChar() Dim i As Integer Dim myString As String For i = 2 To 11 myString = Range(" A " & i) Range(" B " & i) = Left(myString, Len(myString) - 1) Next i End Sub此特定示例从A2:A11范围内的每个字符串中删除最后一个字符，并在B2:B11范围内显示结果。 以下示例展示了如何在实践中使用此语法。 示例：使用 VBA 从字符串中删除最后一个字符假设我们在 Excel 中有以下篮球队名称列表：
假设我们要删除每个团队名称中的最后一个字符。 我们可以创建以下宏来执行此操作： Sub RemoveLastChar() Dim i As Integer Dim myString As String For i = 2 To 11 myString = Range(" A " & i) Range(" B " & i) = Left(myString, Len(myString) - 1) Next i End Sub当我们运行这个宏时，我们会收到以下输出：
B 列显示 A 列中的每个字符串，并删除最后一个字符。 如果您想从字符串中删除最后 n 个字符，只需将Left方法中的1替换为不同的数字即可。 例如，我们可以创建以下宏来删除字符串中的最后2 个字符： Sub RemoveLastTwoChar() Dim i As Integer Dim myString As String For i = 2 To 11 myString = Range(" A " & i) Range(" B " & i) = Left(myString, Len(myString) - 2) Next i End Sub当我们运行这个宏时，我们会收到以下输出：
B 列显示 A 列中的每个字符串，并删除最后两个字符。 注意：您可以在此处找到 VBA Left方法的完整文档。 其他资源以下教程说明如何使用 VBA 执行其他常见任务： VBA：如何计算字符串中字符的出现次数VBA：如何检查一个字符串是否包含另一个字符串VBA：如何计算具有特定文本的单元格 关于作者 本杰明·安德森博大家好，我是本杰明，一位退休的统计学教授，后来成为 Statorials 的热心教师。 凭借在统计领域的丰富经验和专业知识，我渴望分享我的知识，通过 Statorials 增强学生的能力。了解更多 添加评论取消回复 |
【本文地址】
今日新闻 |
推荐新闻 |