excel表格如何将文字牢靠

1.EXCEL 奈何设定牢靠的字眼?

可以操作EXCEL中的"自动变动"成果来完成。

好比在键入"工行"时需要显示"中国工商银行”，可以按以下步调操纵（以EXCEL2007为例）：

1、在EXCEL事情界面中，单击左上角的"OFFIC"按钮，选择"EXCEL选项（I）"呼吁，抖客教程网，弹出"EXCEL选项“对话框。

2、在该对话框中切换至"校对"选项卡，并点击右边的"自动矫正选项（A）。"按钮。

3、在弹出的"自动矫正"对话框中，切换至"自动矫正"选项卡（默认等于）。

4、在"替换（R）"文本输入框中输入"工行"文字，在"为（W）"文本输入框中输入"中国工商银行"文字。

5、点击"确定"按钮生存并退出对话框即可。

数量不大，可以这样设定。

点窗口→拆分窗口，然后移动框线到指定位置

然后再点 窗口→冻结窗格。

功效就出来了。

亲，你输入“白色”，自动去找已有的对应数据——这不是公式可以办理的，而是VBA。

代码和测试功效如下。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空缺处粘贴下面的代码。封锁VBA窗口。

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Column = 1 And Selection.Count = 1 Then

Dim d, AArr, DArr

Set d = CreateObject("Scripting.Dictionary")

Dim r, i

r = Cells(Rows.Count, 4).End(xlUp).Row

AArr = Range("A1:A" & r): DArr = Range("D1:D" & r)

For i = 1 To UBound(AArr)

If AArr(i, 1) <> "" Then d(AArr(i, 1)) = DArr(i, 1)

Next

Application.EnableEvents = False

Target.Offset(0, 3).Value = d(Target.Value)

Erase AArr, DArr

Application.EnableEvents = True

Set d = Nothing

End If

End Sub

只有利用vba来完成了。

下面代码指定在第一列中实现楼主要求的成果：Dim s$Private Sub Worksheet_Change(ByVal Tt As Range)If Tt。 Count > 1 Then Exit SubIf Tt。

Column > 1 Then Exit SubIf Tt = "" Then Exit SubApplication。 EnableEvents = FalseTt = s & TtApplication。

EnableEvents = TrueEnd SubPrivate Sub Worksheet_SelectionChange(ByVal T As Range)If T。 Count > 1 Then Exit SubIf T。

Column > 1 Then Exit Subs = TEnd Sub。