如何在B列写公式:取A列的内容te开始的内容至后面9码的值

如果你想在Excel的B列计算A列内容从"te"开始到后面9个字符的值，你可以使用文本函数配合截取字符串的功能。假设"te"总是在A列的某个固定位置开始，可以尝试使用以下步骤：

1. 首先，在B1单元格输入以下公式：

   =LEFT(A1, FIND(" ", A1, FIND("te", A1) + LEN("te")) - 1)

这里`FIND("te", A1)`会找到"te"第一次出现的位置，`LEN("te")`加上这个位置就是"te"之后的起始点，`LEFT()`函数则截取这部分内容。

2. 如果"A"列中的"te"不是固定的，比如每个单元格都有可能包含"te"，那么你需要动态查找"te"后的9个字符，可以用`FIND("/", SUBSTITUTE(A1, "te", "/9", 1))`替换掉上述公式中的`FIND(" ", A1, ...)`部分。这里的`"/9"`代表你要找的是"te"后跟着的9个字符，如果找到了就替换为"/"，然后再次查找"/"的位置，即为需要的长度。

注意：上述公式假设"te"后面紧跟着空格或者换行符，如果不是这种情况，可能需要调整查找的条件。

相关问题

如何在B列写公式可以实现 :判断A列单元格是否含有te字眼,如有则取值A列内容te及TE后面的10码的值放在B列,如果A列单元格的值不包含TE则直接把A列的值放在B列

你可以使用Excel的IF函数和LEFT函数来实现这个需求。假设A列的单元格都在第1行开始（如A2:A100），你可以按照以下步骤编写公式：

在B2单元格中输入以下公式，并向下拖动以应用到其他行：

=IF(ISTEXT(A2) AND "te" IN (LEFT(A2, FIND("te", A2, 1)), LEFT(A2, FIND("TE", A2, 1))), 
   IF(ISNUMBER(FIND("te", A2)) AND ISNUMBER(FIND("TE", A2)), 
      LEFT(A2, FIND("te", A2, 1) + 4), 
      LEFT(A2, MIN(FIND("te", A2, 1), FIND("TE", A2, 1))) & Mid(A2, MAX(FIND("te", A2, 1) + 4, FIND("TE", A2, 1) + 4), 10)),
   A2)

这个公式的工作原理如下：
1. `ISTEXT(A2)`检查单元格A2是否有文本内容。
2. `"te" IN (LEFT(A2, ...), LEFT(A2, ...))`检查"te"是否出现在A2的第一个"te"或"TE"的位置。
3. 如果满足条件，再检查"te"和"TE"都存在，然后提取"te"或"TE"之后的10位数字。
4. 如果只找到其中一个，取那个位置后的数值。
5. 如果都不满足，就直接将A2的值复制到B列。

用VBA 实理: 查看A列每个单元是否含有te字眼,如含TE 字眼,则取取A列的内容te开始的内容至后面9码的值放在B列对应单

在VBA中，你可以创建一个宏来遍历A列并检查每个单元格是否包含"te"，如果存在，则按照之前提到的方式提取并放置到B列相应位置。以下是实现这一功能的基本步骤：

1. 打开Visual Basic for Applications (VBA)，在Excel工作簿上右键选择“视图”->“Macros”，然后在新窗口中点击“创建”。

2. 在新打开的模块窗口中，插入一个新的Sub过程，例如命名为`ExtractTe`，并添加以下代码：

Sub ExtractTe()
    Dim rng As Range
    Dim cell As Range
    Dim startIndx As Long
    
    ' 设置A列范围
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A:A")
    
    ' 遍历A列
    For Each cell In rng
        If InStr(1, cell.Value, "te", vbTextCompare) > 0 Then ' 检查是否包含"te"
            startIndx = InStr(cell.Value, "te") + Len("te") ' 获取"te"之后的位置
            If startIndx < Len(cell.Value) Then ' 确保有足够字符提取
                cell.Offset(0, 1).Value = Left(cell.Value, startIndx - 1 & "") & Mid(cell.Value, startIndx, 9) ' 提取并放到B列
            End If
        End If
    Next cell
End Sub

这里假设你的数据在Sheet1的第一张表中。记得把`"Sheet1"`替换为你实际的工作表名。