请问老师们如何用公式函数或者vba按照条件提取数据？

这个不需要提取数据，那样太麻烦。可以通过拆分列，判断奇偶，然后多条件排序的方式实现。1针对楼号那一列，根据固定宽度分列，将字母和数字分开。当然通过提取文本字符函数left或者right分别提取出字母和数字也行。2通过ISEVEN函数判断奇偶性，偶数返回true，奇数返回false。3排序，第一条件字母列升序；第二条件true和false排序，可以设定false排在前，true排在后；第三条件数字列升序。这样你想要的结果就出来了。望采纳

——————分割线——————

你的问题解决了吗，根据楼号字母+数字分单双排序那个。

你这个提取数据比较难，如果楼号不重复还好，如果字母和数字，都没有最大值，那根本无法实现提取数据。

我之前的方法是整理数据法。但是如果你这张表在不断更新，那的确不适用。

如果你的数据在不断更新，但是字母和数字（尤其是数字，因为是第二变量，字母是第一变量），都有最大值的话，可以通过在另一张表中，先制定好参数的方式来实现。

一列为字母，一列为数字，数字事先按照单双排好，所有数字前面都是A，然后将字母和数字一起复制到下面，把A替换成B，如此把足够的字母都做出来。

这一步很难有诀窍，因为你的楼号是一个组合，既要安字母排又要按数字排，还要分单双。

等做好后，在另一列里面，把字母和数字合并到一起，用＆公式。做好这个基础楼号后，以此为查找对象，通过=IFNA(VLOOKUP(,,X),0)公式，将要提取的楼号以外其他列数据都提取到同一行相应到此位置，

X是相比楼号所在列后面的第几列，楼号列是第1列，然后有多少个数据就要编制几次函数公式，分别修改X。

楼号前面的，序号和日期无法提取，因为在楼号前面，除非复制序号和日期列到楼号后面列，然后相应出现新的列号X。

如此编制好第一行后，选中楼号后面的所有数据，在右下角双击快速填充，这样一张按照所有可能存在的楼号已经编制好公式的数据表就出来了。

这样，无论你原始表中怎么修改更新数据，都会相应的出现在后面这张数据表的相应位置。这是你要的效果吗？

提起测一测你还会单身多久小程序，大家都知道，有人问excel vba 来做一个心理测试的小程序，另外，还有人想问心理测试：测试单身的你何时才能遇见爱情，你知道这是怎么回事？其实单身太久会有什么危害？下面就一起来看看excel vba 来做一个心理测试的小程序，希望能够帮助到大家！

测一测你还会单身多久小程序

1、测一测你还会单身多久小程序:excel vba 来做一个心理测试的小程序

按题号啊,题号就可以了。查到题号之后按照题号的坐标offset就可以了

2、测一测你还会单身多久小程序:心理测试：测试单身的你何时才能遇见爱情

题目：为了的约会，你事先对上映中的做了调查。经过一番筛选后，你会挑以下哪个？

单身太久会有什么危害？

A、稳坐票房的

B、性结局的感情片

C、情节感人的泪片免费测另一半出现时间。

D、温情搞笑的家庭剧

测试结果分析：

A、稳坐票房的

你已经开始新的恋情了，虽然还不是很清楚自己的心意如何，但是你已经知道自己喜欢谁。想想看着几个月交往的男性朋友中，是不是有个人特别令你牵挂？他很有可能就是你心上人。当然你对他有好的印象，也有坏的印象，不过你将会越来越喜欢他，千万别错过这个机会。

B、性结局的爱感情片

现在的你很想谈恋爱，开始会注重打扮和发型，希望以美丽形象见人。同时你会开始想结交更多朋友，应该好好扩展人脉，为自己制造机会。现在是事前准备期，再等一俩个月就会有邂逅的机会，到时候你要大胆主动一点，对方会给你满意的回复。

C、情节感人的泪片占卜你什么时候脱单。

虽然很想谈恋爱，但只想却不会付诸行动。其实你极度没有自信，就算有喜欢的对象，也不敢向他表白。你的心情易受季节影响，夏天时会变得开朗、热情，所以夏天的邂逅机会多，你要好好把握。如果对自己的身材没信心，赶快纤体吧。

D、温情搞笑的家庭剧

基本上对于爱情，你仍然抱着积极进取的态度。你是个比较严谨的人，一见钟情的浪漫故事不可能会发生，但是如果仔细观察身边的异性朋友，其实坠入情网的机会也蛮多的。当你换新工作或换学校时，邂逅的机会就会出现了。换句话说就是当生活环境改变时，也就是爱神找上你的时候。

3、测一测你还会单身多久小程序:单身太久会有什么危害？

单身太久的表现：

1、单身太久，越来越不自信

有的被动单身者如果长期单身，可能会在自我认知层面上出现不自信和否定自我的情况。有的人可能连日常的梳妆打扮都懒于进行了。有的单身者因为家庭方面的施压会把注意力专注在工作和学习上，将婚姻的需要埋起来，但随着时间的推移，这个被埋起来的问题会越来越突出，家庭的承受力也受到严峻的考验。

2、你会发现所有异性都有缺陷

单身过久的一个影响是过份过份挑剔。你在身边每个异性身上都能发现缺陷，而实际上你的大多数都没实际根底。

即使品德兼优的男上，你也能吹毛求疵:穿衣不行，毛孔，不爱看文娱新闻，节省用钱。或许你产生了自身是个评论家的幻觉。也许，你惧怕寻求异性，因而用这些装腔作势的挑剔当托言。测什么时候遇到另一半。

3、单身太久，恋爱交际能力下降

长期的单身生活，可能会使被动单身者因为自卑而封闭自己，不愿与人交往，但是这样就会使他们的人际交往能力受影响，长此以往，就会形成恶性循环。长期单身的人会对亲密关系有不安全感，导致人际交往，特别是异往时界限的过度、防范心理过重，家庭内外亲密的关系遭到损伤。算正缘出现的时间。

4、单身太久，孤独、抑郁

芬兰的研究人员在七年间对年龄在30岁到65岁之间的名男性和名女性进行了调查，这些被调查民众中有14%是独居者。调查人员通过药登记册来对抗抑郁药的使用进行监测，在调查的六年期间，独居民众购买抗抑郁药的比率是与家人一起生活的民众的18倍。虽然国内还没有相关调查，但是精神学家说，孤独是导致抑郁症的最主要因素，所以被动单身者应该引起足够的重视。

以上就是与excel vba 来做一个心理测试的小程序相关内容，是关于excel vba 来做一个心理测试的小程序的分享。看完测一测你还会单身多久小程序后，希望这对大家有所帮助！

数据写在AB列，代码如下：

Sub Demo()

Numin = 14952

Numax = 15212

Div = 03

Discuss = Int((Numax - Numin) / Div)

Remainder = (Numax - Numin) - Discuss Div

Range("A:B")ClearContents

For i = 0 To Discuss + ApplicationRoundUp(Remainder, 0)

Cells(i + 1, 1) = i

If i > Discuss Then

Cells(i + 1, 2) = Numax

Else

Cells(i + 1, 2) = Numin + Div i

End If

Next i

End Sub

实测图：

cells(4,4)改成cells(x,4)

rows(4)改成rows(x)

第二个if另起行

end if后面再加上

end if

next x

请把vba代码全部贴出来

先定义，以下是我某软件用到的片段，希望可以帮到你

    Dim xlApp As Object

    Dim xlBook As ExcelWorkbook

    Dim xlSheet As New ExcelWorksheet

    Dim DateRows As Long, DataColumns As Long       'Excel有效行、列

    

    '先检查本地是否有文件

    '有则直接上添加记录

    '否则新建Excel再添加记录

    If FolderOrFileExist(xlsFileName, fFile) = False Then

        Set xlApp = CreateObject("ExcelApplication")

        Set xlBook = xlAppWorkbooksAdd

        Set xlSheet = xlBookWorksheets(SheetName)

        

        Rem 找到添加记录起点

        DateRows = xlSheetUsedRangeRowsCount 'Excel总行数，有内容

        DateRows = DateRows - 1

    Else

        Set xlApp = CreateObject("ExcelApplication")

        xlAppVisible = False

        Set xlBook = xlAppWorkbooksOpen(xlsFileName)

        Set xlSheet = xlBookWorksheets(SheetName)

        

        Rem 找到添加记录起点

        DateRows = xlSheetUsedRangeRowsCount 'Excel总行数，有内容

dim a as long  '定义一个长整数型变量　　-2,147,483,648 到 2,147,483,647。

dim a as integer '定义一个整数型变量　　-32,768 到 32,767。

全局变量例子

public 变量1 AS Integer

Sub LLL()

变量1 = 1111

End Sub

模块级变量例子

DIM 变量1 AS Integer

Sub LLL()

变量1 = 1111

End Sub

vba中如何定义小数类型的变量

VBA中如何使用小数类型？变量声明为Variant类型

Sub Test()

Dim varNumber As Variant

varNumber = 31415

If VarType(varNumber) = vbDouble Then

MsgBox "默认是双精度型（Double）"

End If

varNumber = CDec(31415)

If VarType(varNumber) = vbDecimal Then

MsgBox "经过CDec函数转后换才是小数型（Decimal）"

End If

End Sub