56-20180225-EXCLE小技巧

O

昨天工作的时候同事叫我过去帮忙看看他的表格，因为BOSS出问题，所有的业务号码前面都统一少了“0”以及“wh717”，问我要怎么才能统一处理这个问题。我是记得本科的时候好像有教过这个，马上百度了一下，果然找到了解决方法。

R

在自己处理问题的时候，只会用笨方法，但是遇到别人很着急的时候，反而激发了我思考的能力，感觉很开心。

I

现在就来将处理账务的时候，同事拜托我解决的三个问题进行总结。

1.批量在业务号码前添加缺失的数据。

比如计划在A列数前添加"wh717"。新建B列数据，内容全为“wh717”,在C列使用函数“="0"&要匹配的单元格”，如，输入  ="wh717"&A1。

2.合并一个工作簿中多个工作表内容。

在当前工作簿下新建一个sheet，然后在这个sheet和标签处右键-查看代码（或直接按一下alt+F11) 把下面的代码复制进去然后点上面的运行，运行子程序就可以了。

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub

3.如何将单元格的内容下拖后以秒变化，单元格为一个日期时间，现在希望以秒递增时间。

本来搜到的内容有两种，一种添加函数，有点麻烦，而且没有成功，而另一种就是在A1输入23:20:23，在A2输入23:20:24，选中A1.A2当指针变为实心十字的时候，下拉，就可以以秒递增，而以一个单元格下拉，会以时递增。

D

第二个技巧真是奇特，居然还能用编程实现工作表合并，表示还有好多东西要学。