作者:郭芊澄 · 更新日期:2025-04-02
使用LEFT函 🌵 数
=LEFT(cell_reference, 8)
例如,要 🐒 从A1单,元格中提取左 🐵 八个字符请使用以下公式 🐺 :
=LEFT(A1, 8)
使用 🐶 MID函数
=MID(cell_reference, start_position, num_chars)
要从A1单元格中 ☘ 提取 🍁 从第一 🌷 个字符开始的左八个字符,请使用以下公式:
=MID(A1, 1, 8)
使用文本到 🦊 列 🌹 向 💮 导
1. 选中 🌼 您 🐅 要从中提取字符的 🌳 列。
2. 转到“数 🌷 据”选项卡数据 > “工”具 > “组分列”。
3. 在“分列 🐺 向导”对话框 🦉 中,选“择”固“定宽度并单击下一步”。
4. 在“预览数据”部分中,将光标拖动到您要 🐞 提取字符的最后一个字符的右侧。
5. 单击“下一 🍁 步”并“选择文本”。
6. 单 🦆 击“完 🍀 成”。
这将创建一 🐝 个新 🌵 列,其中包含您提取的字符。
示例如果您要在B1单元格中提取单元格中A1左八个字符,请 🦟 使用以下公式:
=LEFT(A1, 8)
结 🐴 果将显 🐠 示在B1单元格中。
1. 选择 🦁 要提取 🌲 数据的目 🍀 标单元格。
2. 在公式 🌳 栏中输 🐠 入以 🦍 下公式:
=LEFT(A2,8)
A2 是包含要提取数据的单元格 🕸 。
8 是要提 🐦 取的 🐎 字符数。
使用文本转 🐦 列向导
1. 选 🌿 择包含数据 🐝 的 🦄 单元格。
2. 前 💮 往数据 > 文本转列向导。
3. 在 文 本分隔符步骤中,选 🐴 择固定 🐼 宽度。
4. 输 🌸 入 🐱 字段 🌷 宽度为 8。
5. 在 目 标区域中,指 🌼 定一个新位置来放置 🦅 提取 🐛 的数据。
6. 单 击 🐈 完 🐧 成 🐬 。
使用宏vba
Sub ExtractLeft8Chars()
Dim rng As Range
Dim newRng As Range
'选择 🐠 源数据
Set rng = Selection
'创建新 🦟 范围,起,始位置等于源范围的起始位置宽度为 8
Set newRng = rng.Cells(rng.Row, rng.Column).Resize(, 8)
'将左 8 个字符复制到新范围 🌾
newRng.Value = rng.Value
End Sub
1. 将宏 💐 代码 🌲 复制到 VBA 编辑器中 🐕 (Alt+F11)。
2. 运 🦢 行宏 💐 (F5)。
3. 选择要提取数据的单元格,并运行宏提 ☘ 取的数据。将复制到 8 个。连续单元格中
使用公 🕊 式提取
假设目标数 🦆 据在 A 列 🐠 ,左八位字段在列 B :
1. 在 B2 单元格 🐎 输入以下公式:
=LEFT(A2, 8)
2. 然 🦁 后 🦟 将公 🌴 式向下填充到其他需要提取数据的单元格。
使用 🦅 文本转列
1. 选择包含目 🌼 标数据的列。
2. 转到“数 🌴 据”选 🐺 项卡。
3. 在“数据工具”组中,单 🐕 “击 🦆 分列 🦄 ”。
4. 在“分列 🍁 向导”中,选“择分隔符号”。
5. 选中“逗号”复选框 🦁 ,然“后单击下 🌷 一步”。
6. 在“预览”窗格中,选“中 🌹 左 8 个”字符单选 🦍 按钮。
7. 单 🪴 击“完成 🌲 ”。
使 🐦 用 VBA 代码 🌴 (仅限 🐳 Excel VBA)
Sub ExtractLeftEight()
Dim ws As Worksheet
Dim r As Range
Dim LstCol As Long
Set ws = ThisWorkbook.Worksheets("Sheet1") '更改为包含数 🦈 据 🌺 的表名 🌻
LstCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
For Each r In ws.Range("A2", ws.Cells(ws.Rows.Count, LstCol))
r.Offset(0, 1).Value = Left(r.Value, 8)
Next r
End Sub
1. 将代码复制到 🐟 代码 VBA 模块中。
2. 运行 🌵 该 🦋 宏 🐞 。
=LEFT(A2,8)
其中:A2 是包含 🌷 要提取 ☘ 字段的单元 🌾 格地址。
8 是要提 🐯 取的字符数 🍁 。
使用文本到 🐡 列功能
1. 选中包 🐴 含数据的列。
2. 转到“数据 🌾 ”选项卡。
3. 单 🦟 击“文本到 🐛 列”。
4. 在“分隔符 🦋 号”步骤中,选“择固定宽度”。
5. 在“分隔 🕷 符”框中,输入 🦍 “8”。
6. 单 🦅 击 🦄 “下一 🍀 步”。
7. 在“数据预览”中预览,提取 🐛 的结果。
8. 单击“完成 🌳 ”。
使 🦆 用VBA代码
vba
Sub ExtractLeft8Characters()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Set ws = ActiveSheet
Set rng = ws.UsedRange
For Each cell In rng
cell.Value = Left(cell.Value, 8)
Next cell
End Sub