excel怎么设置下拉选项 exc如何设置下拉选项

excel设置下拉选项的方法其实很简单：

演示版本excel2019

1、首先打开excel表格选中需要设置下拉选项的表格，然后再选择【数据】如下图所示：

2、然后选择【下拉列表】如下图所示：

3、然后在输入框里输入选项，输入完之后再点击【+】接着再输入其他选项如下图所示：

4、最后再点击【确定】如下图所示：

5、设置成功如下图所示：

首先，去下载一个叫rktools.exe的工具（我提供个下载地址Windows 2003 Resource Kits），下载完后安装该资源包，里面有个instsrv.exe和srvany.exe的工具，就能够将普通进程转化为系统服务。

其次，进入控制台程序（运行->cmd），键入：instsrv 服务名 "程序路径"，成功后就能够在系统服务中查找到该服务了，并尝试启动该服务，启动失败的话继续往下看。

然后，进入注册表（运行->regedit），找到HKEY_LOCAL_MACHINESYSTEMControlSet001Services服务名，将ImagePath的值指向srvany.exe的路径，同时新建项Parameters，并在其中新建字符串application，将application的值指定为原程序路径。

（如需要删除服务，只需要将注册表中HKEY_LOCAL_MACHINESYSTEMControlSet001Services服务名删除即可）

下面写个简单列子（服务名：test，程序路径：c:app.exe）

1.下载rktools.exe，并安装；

2.进入控制台，键入instsrv test "c:app.exe"；

3.进入注册表，找到HKEY_LOCAL_MACHINESYSTEMControlSet001Services est，

将ImagePath值指向srvany.exe的路径，

新建项Parameters，并新建字符串application，同时将值设为c:app.exe；

4.启动服务。

可以使用vba插入吧。假设数据从a2开始，连续的，为1 3 5 6 8 10.

打开excel后，按alt+F11进入vba编辑，输入下面语句：

Sub 补全数字()

a = 3

While Cells(a, 1) <>""

If Cells(a, 1) <>(Cells(a - 1, 1) + 1) Then

Rows(a).Select

Selection.Insert Shift:=xlDown

Cells(a, 1) = Cells(a - 1, 1) + 1

End If

a = a + 1

Wend

End Sub

保存之后，返回表格，按alt+F8，然后选择“补全数字”的宏执行一下就好了。

---