摘要：今天在百度知道的时候，看到旁边有人问excel中条件查找vlookup的问题，有几位高手都知道使用vlookup作答，可惜都是没有经过测试，直接复制别人的答案，让所有的读者都无法实施，一头雾水。今天我们详细解答一下vlookup函数的实际应用问题：问题：如下图，已知表sheet1中的数据如下，如何在数据表二 sheet2 中如下引用：当A列学号随机出现的时候，如何在B列显示其对应的物理成绩？首先我们知道需要用到vlookup函数，那么先介绍一下使用 vlookup函数的几个参数，vlookup是判断引用数据的函数，它总共有四个参数，依次是：1、判断的条件2、跟踪数据的区域3、返回第几列的数据4 阅读全文

摘要：经过本人亲自测试，对Excel进行排序，如果用到一般的排序，如冒泡排序，这里效率非常低，即使经过反复优化的话，效率也难达到秒杀地步。(比如 Rows.Count 达到e4的数量级时)，如果直接使用VBA那就能实现高效排序: 升序:Sub MacroPinyin_Ascend()'' Macro1 Macro' 宏由 Chenwb 录制，时间: 2013-9-22' '表1 双字节区的21003汉字 '按照GB8030编码增序排列 Dim lRow As Long Dim lCol As Long Dim myRng As Range With W 阅读全文

摘要：exit for/do跳出循环，相当于breakexit sub/function跳出方法goto num无条件跳转 阅读全文

摘要：在看一本书的时候没搞明白例子上写的一句话，如上。经调试才搞明白。分享给大家。 NextRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 这句话的意思是取活动单元表的第一列最后一个有值的行的下一行行号。Rows.Count是指当前活动工作表的行数，为数字1048576，很熟悉的一个数字，为Excel工作表的最大行数Cells(Rows.Count, 1)，则是定位到第一列的最后一行cell，即单元格“A1048576”主要是End(xlUp)比较难理解。Range.End属性是返回一个 Range 对象，该对象代表包含源 区域的.. 阅读全文

摘要：Sub setUnicodeFormat()bmpFileType = ".bmp"pngFileType = ".png"pathA = "G:\GB18030-36x36HeiBMP(Unicode)\"pathB = "D:\GY_150_FONT\" Dim strA, tmpStr, strName As String Dim count, lan As Integer Sheets("resutle").Select strA = Range("C" & 阅读全文