我要文库申报
查看: 29753|回复: 35
VBA中TXT文件和EXCEL进行数据交互的几种方法简析
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: xyf2210
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: &
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
由于工作需求，需要频繁的将业务系统导出的TXT文件数据，导入到EXCEL中，经过数据整理后，再导出到txt文本中。经过查找学习，总结了一下，EXCEL和TXT文本文件的数据交互，在VBA中，主要有以下几种方式：
按导入和导出分开来进行解析，如有一些不恰当的解释，请大家指正：
（一）导入文本文件数据到EXCEL中：
以如图所示文本文件为例：
文本文件.jpg (12.29 KB, 下载次数: 2)
23:33 上传
然后，我们要处理成这个的格式：
需求.jpg (12.93 KB, 下载次数: 1)
23:34 上传
(172.99 KB, 下载次数: 492)
00:02 上传
点击文件名下载附件
魅力值 +32
技法娴熟:)
二师兄，好V5
魔王v5******！
技法娴熟:)
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
（1）首先，我们可以一个，当年在VB里面，用来处理文本文件的利器，open语句
Open语句打开文件的语法为：
Open 路径+文件名 For Input As #数字& & '数字就是打开的这个文件的别名
之后，我们可以用Line Input语句，一行行的把数据导入，并进行处理，直至文本文件的尾端（EOF(1)），详见代码。这个方法是最常用的，大家尽量学透就是了。Sub Open方法()
& & Dim d, i, sr$, temp
& & Set d = CreateObject(&scripting.dictionary&)& && &'引用字典
& & With Sheet1
& && &&&.UsedRange.ClearContents& && && && &'清除原有的数据
& && &&&i = 1
& && &&&Open ThisWorkbook.Path & &\工资表.txt& For Input As #1& & '使用open语句输入
& && &&&Do While Not EOF(1)& &'运行到文件的结尾结束
& && && && &Line Input #1, sr& && && && &'按行读取数据
& && && && &d(i) = Split(sr, &,&)& && &&&'以逗号分割字符串
& && && && &i = i + 1
& && &&&Loop
& && &&&Close #1& && && && &&&'关闭文本文件
& && &&&temp = Application.Transpose(d.Items)& &&&'转置字典的项
& && &&&.Range(&a1&).Resize(d.Count, UBound(temp)) = Application.Transpose(temp)& &&&'将数组写入单元格
& & End With
& & Set d = Nothing
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
（2）相信，很多人学习VBA，都是从录制宏学起吧，呵呵，我们可以运用，excel的获取外部数据，导入文本数据的功能（如图）
1.gif (204.34 KB, 下载次数: 5)
23:38 上传
录制宏，进行修改，来导入文本数据，我们可以发现，EXCEL其实是运用QueryTables这个对象来导入数据（QueryTables对象成员解析，详见F1帮助说明，里面很详细，本文就不再复述）。首先运用add的方法，添加连接，然后运用QUERYTABLE对象的关于分隔符设置的属性（详细见F1里面，QueryTable 对象成员中，TEXT打头的几个属性），处理文本，导入数据。详细代码如下：Sub 查询表方法()
& & With Sheet1
& && &&&.UsedRange.ClearContents& && &&&'清除原有的数据
& && &&&With .QueryTables.Add(Connection:=&TEXT;& & ThisWorkbook.Path & &\工资表.txt&, Destination:=Range(&A1&))& & '新建查询表
& && && && &.TextFileCommaDelimiter = True& && && &'以逗号作为分隔符
& && && && &.Refresh& && &'更新外部数据区域
& && &&&End With
& & End With
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 xyf2210 于
23:41 编辑
（3）其实，大家不知道有没有试过，我们其实可以用文件-打开-选择文本文件-打开，的方法，也可以导入文本文件（如图）
2.gif (279.89 KB, 下载次数: 3)
23:40 上传
一样，我们可以用录制宏的方式进行学习。我们观察代码，EXCEL其实是调用了Workbooks.OpenText方法，来导入文件（F1里面，对这个方面的解释，相当的详细，大家可以去看看，主要也是一些属性的设置）。详细见如下代码解释：Sub opentext方法()
& & Dim arr
& & With Sheet1
& && &&&.UsedRange.ClearContents& && && &&&'清除原有的数据
& && &&&Workbooks.OpenText FileName:=ThisWorkbook.Path & &\工资表.txt&, DataType:=xlDelimited, Startrow:=1, comma:=True
& && &&&'startrow:=1是文本分列处理的起始行号
& && &&&'DataType:=xlDelimited是指示文件由分隔符分隔
& && &&&'comma:=true是指以逗号作为分隔符
& && &&&arr = ActiveWorkbook.Sheets(&工资表&).UsedRange
& && &&&ActiveWorkbook.Close False
& && &&&.Range(&a1&).Resize(UBound(arr), UBound(arr, 2)) = arr
& & End With
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 xyf2210 于
00:06 编辑
（4）我们还可以调用FSO(FileSystemObject)方法来导入文本文件。FSO对象，大家一般都是用于文件和文件夹的处理。其实它也支持对文本流对象的处理的。FSO对象博大精深，详细的解释请参考MSDN，由于这个对象较难，初学者，可以把以下代码，作为模板，进行修改使用。Sub fso方法()
& & Dim d, i, sr$, temp, myfile As Object
& & With Sheet1
& && &&&.UsedRange.ClearContents
& && &&&Set d = CreateObject(&scripting.dictionary&)& && && &&&'引用字典
& && &&&Set myfile = CreateObject(&scripting.filesystemobject&).OpenTextFile(ThisWorkbook.Path & &\工资表.txt&)
& && &&&'引用FSO需要单击工具-引用-选中Microsoft Scripting Runtime
& && &&&'fso的opentextfile方法文件并返回一个TextStream对象
& && &&&i = 1
& && &&&Do While Not myfile.AtEndOfStream& && && &&&'运行到myfile的结尾
& && && && &sr = myfile.ReadLine& && && && && && && &'读取整行
& && && && &d(i) = Split(sr, &,&)
& && && && &i = i + 1
& && &&&Loop
& && &&&myfile.Close
& && &&&temp = Application.Transpose(d.Items)
& && &&&.Range(&a1&).Resize(d.Count, UBound(temp)) = Application.Transpose(temp)
& & End With
& & Set d = Nothing: Set myfile = Nothing
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 xyf2210 于
23:03 编辑
（5）接下来是，ADO+SQL法，很多数据库的高手，喜欢用SQL来处理文本数据，这个方法比较灵活，可以先读入再分列，但是比较复杂，而且ADO对象解析起来也可以写一本书了。大家也是，把以下代码，当做模板，进行修改使用。Sub ado方法()
& & Dim adoconn As Object, strSQL As String, strConn As String, AdoRst As Object
& & Dim i, txt
& & Set adoconn = CreateObject(&adodb.connection&)
& & txt = ThisWorkbook.Path & &\工资表.txt&
& & With Sheet1
& && &&&.UsedRange.ClearContents& && && &&&'清除原有的数据
& && &&&'设置连接字符串
& && &&&strConn = &Provider=Microsoft.ACE.OLEDB.12.0;& & _
& && && && && && &&Data Source=& & ThisWorkbook.Path & &;Extended Properties=&&THDR=YES&&&
& && &&&strSQL = &select * from 工资表.txt&& && &&&'设置SQL查询语句
& && &&&adoconn.Open strConn& && && && && && && && && & '打开数据库连接
& && &&&Set AdoRst = adoconn.Execute(strSQL)& &'执行查询，并将结果输出到记录集对象
& && &&&For i = 0 To AdoRst.Fields.Count - 1
& && && && &.Cells(1, i + 1) = AdoRst.Fields(i).Name& && && && &&&'填写标题
& && &&&Next
& && &&&.Range(&A2&).CopyFromRecordset AdoRst& && && && &&&'导入记录集
& & End With
& & AdoRst.Close: adoconn.Close& && && && && &'关闭数据库连接
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 xyf2210 于
23:46 编辑
（6）最后一种，来个偏门，仅作为补充学习，较难。当没有WINDOW的时候，大家又是怎么读取文本文件的呢。呵呵，在DOS环境里面，可以用type语句来显示文本文件的数据。在VBA里面，我们可以借用WSH，来执行DOS语句，并将文本内容读入。先行声明，Windows95/98 中已经都可以使用长文件名/目录 (最长可以到255个字节)，但是目前版本不支持复杂的长文件名，可以利用API函数取得短文件名，再利用短文件名读入文本文件。
Sub dos用法()
& & Dim StrCmd As String, StrPath As String * 256, LngRes As Integer
& & Dim i As Integer, str As String, arr1, arr2
& & LngRes = GetShortPathName(ThisWorkbook.Path & &\工资表.txt&, StrPath, 256)
& & Sheet1.UsedRange.ClearContents
& & str = CreateObject(&wscript.shell&).exec(Environ(&comspec&) & & /c&&type & & StrPath).StdOut.ReadAll
& & arr1 = Split(str, vbCrLf)
& & ReDim arr2(1 To UBound(arr1), 1 To 3)
& & For i = 1 To UBound(arr1)
& && &&&arr2(i, 1) = Split(arr1(i - 1), &,&)(0)
& && &&&arr2(i, 2) = Split(arr1(i - 1), &,&)(1)
& && &&&arr2(i, 3) = Split(arr1(i - 1), &,&)(2)
& & Next i
& & [a1].Resize(i - 1, 3) = arr2
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
讲完了导入，那导出呢，我们怎么把数据从EXCEL导出到TXT文件呢。呵呵，其实很多都是上面几种方法的反方向而已。
（1）第一种，还是，OPEN语句
Open 路径+文件名 For Output As #数字 ‘数字为文件的别名
用OPEN语句创建文本文件，就可以使用PRINT语句，一行行的输出文本内容了。Sub test()
& & Dim file As String, arr, i
& & '定义文本文件的名称
& & file = ThisWorkbook.Path & &\工资表.txt&
& & '判断是否存在同名文本文件，存在先行删除
& & If Dir(file) && && Then Kill file
& & '将当前的数据读入数组
& & arr = Sheet2.Range(&a1&).CurrentRegion
& & '使用print语句将数组中所有数据写入文本文件
& & Open file For Output As #1
& & For i = 1 To UBound(arr)
& && &&&Print #1, Join(Application.Index(arr, i), &,&)
& & Next
& & '关闭文本文件
& & Close #1
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 xyf2210 于
23:55 编辑
（2）还是录制宏，录制，文件-另存为-文本文件的宏(如图)
3.gif (274.23 KB, 下载次数: 3)
23:54 上传
这个方法的好处就是，处理速度很快，但是就是，格式比较单一，较难个性化的保存其中的文本数据。Sub 另存为文本文件()
& & Dim file As String
& & '定义文本文件的名称
& & file = ThisWorkbook.Path & &\工资表.txt&
& & '判断是否存在同名文本文件，存在先行删除
& & If Dir(file) && && Then Kill file
& & '复制工作表另存为文本文件，xlCSV即保存为文本文件
& & Sheet2.Copy
& & ActiveWorkbook.SaveAs FileName:=file, FileFormat:=xlCSV
& & ActiveWorkbook.Close False
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 xyf2210 于
23:57 编辑
（3）第三种，调用FSO对象，去创建和保存文本数据。这个方法一样，比较难，作为拓展了解吧。可以使用createtextfile和OpenTextFile进行操作。Sub createtextfile()
& & Dim arr, i, myfile As Object
& & '创建FSO对象利用Createtextfile方法创建文本文件
& & 'object.CreateTextFile(filename[, overwrite[, unicode]])
& & '参数overwrite是可选的,表示是否覆盖已存在文件,如果省略,则已存在文件不能覆盖，这里面这只True，表示覆盖
& & Set myfile = CreateObject(&scripting.filesystemobject&).createtextfile(ThisWorkbook.Path & &\工资表.txt&, True)
& & '将当前的数据读入数组
& & arr = Sheet2.Range(&a1&).CurrentRegion
& & '使用WriteLine方法写入一个指定的字符串和换行符到文本文件中
& & For i = 1 To UBound(arr)
& && &&&myfile.WriteLine Join(Application.Index(arr, i), &,&)
& & Next
& & '关闭对象
& & myfile.Close
& & Set myfile = Nothing
End Sub
Sub OpenTextFile()
& & Dim arr, i, myfile As Object
& & '创建FSO对象利用OpenTextFile方法创建文本文件
& & 'object.OpenTextFile(filename[, iomode[, create[, format]]])
& & '参数iomode是可选的，1 forreading，打开只读，不能操作；8 forappending，打开并写入尾部
& & '参数create是可选的，没有即创建
& & '此例即追加
& & Set myfile = CreateObject(&scripting.filesystemobject&).OpenTextFile(ThisWorkbook.Path & &\工资表.txt&, 8, True)
& & '将当前的数据读入数组
& & arr = Sheet2.Range(&a1&).CurrentRegion
& & '使用WriteLine方法写入一个指定的字符串和换行符到文本文件中
& & For i = 1 To UBound(arr)
& && &&&myfile.WriteLine Join(Application.Index(arr, i), &,&)
& & Next
& & '关闭对象
& & myfile.Close
& & Set myfile = Nothing: Erase arr
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by查看: 4511|回复: 2
用宏读取单元格日期，再自动输入到另一单元格后变成数字？
本帖最后由 水中游 于
17:28 编辑
用宏读取单元格日期，再自动输入到另一单元格后变成数字，请问怎么才能输入原来日期格式呢？
原来格式：
还有如何用读取到的加1天，把输入到其他单元格呢？
Range(&B1&) = Format(Range(&A1&), &yyyy-mm-dd&)
Range(&B2&) = Format(Range(&A1&) + 1, &yyyy-mm-dd&)复制代码
太好了，谢谢！
Sub test()
& & Dim dat As Date
& & dat = Range(&a1&)& && && && && && && && && && &'A1单元格输入日期
& & Range(&a2&).Value = dat + 1& && && && && && &&&'通过变量
& & Range(&a3&).Value = Range(&a1&).Value + 1& && &'不通过变量
真好，谢谢了！
Powered by查看: 3340|回复: 6
如何用宏提取包含某数值所在的那一整行数据到另一个表格
阅读权限10
在线时间 小时
求教各位，如何用宏提取包含某数值所在的那一整行数据到另一个表格。
sheet2中存在大量数据，我想在sheet1中自动提取shee2中A列是a那一整行数据自动到sheet1和c那一整行数据自动到sheet1。谢谢各位了，在线等，特别着急。
16:28 上传
点击文件名下载附件
7.66 KB, 下载次数: 92
达到sheet1效果
阅读权限30
在线时间 小时
Sub demo()
& & Dim arr, brr
& & Dim i&, j&, k&
& & arr = Sheets(2).Range(&a1&).CurrentRegion
& & ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
& & For i = 2 To UBound(arr)
& && &&&If arr(i, 1) = &a& Or arr(i, 1) = &c& Then
& && && && &k = k + 1
& && && && &For j = 1 To UBound(arr, 2)
& && && && && & brr(k, j) = arr(i, j)
& && && && &Next
& && &&&End If
& & Next
& & Sheets(1).Range(&a2&).Resize(UBound(arr), UBound(arr, 2)) = brr
End Sub复制代码
阅读权限30
在线时间 小时
(16.78 KB, 下载次数: 147)
17:28 上传
点击文件名下载附件
阅读权限10
在线时间 小时
& & & & & & & &
如果每次想把sheet2的第一行也提取出来，该怎么增加一段代码呢？每月的数据中，第一行的时间也总是变化，谢谢啦。
阅读权限30
在线时间 小时
Sub demo()
& & Dim arr, brr
& & Dim i&, j&, k&
& & arr = Sheets(2).Range(&a1&).CurrentRegion
& & ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
& & For i = 1 To UBound(arr)
& && &&&If arr(i, 1) = &a& Or arr(i, 1) = &c& Or i = 1 Then
& && && && &k = k + 1
& && && && &For j = 1 To UBound(arr, 2)
& && && && && & brr(k, j) = arr(i, j)
& && && && &Next
& && &&&End If
& & Next
& & Sheets(1).Range(&a1&).Resize(UBound(arr), UBound(arr, 2)) = brr
End Sub
复制代码
阅读权限30
在线时间 小时
(16.71 KB, 下载次数: 191)
20:15 上传
点击文件名下载附件
阅读权限10
在线时间 小时
太感谢了！
最新热点 /1
在这里，听课的人数已突破10万，单节付费学员人数已突破1万！吼吼，一年100多节Office课程，我们在这等着您！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师中文(简体)
中文(繁體)
中文(台灣)
中文(新加坡)
中文(香港)
打开Excel。在Excel 和2016中，启用宏的方法是一样的。但是和Mac版本的Excel还是有些许不同，后文会具体介绍。
点击文件标签。
在Mac版本的Excel中，点击“Excel”菜单。
点击 选项。
在Mac版本的Excel中，点击“偏好设置”。
点击自定义功能区选项。
在Mac版本的Excel中，在“编辑”区域中，点击“功能区和工具栏”。
在右侧列表中点击开发者。
在Mac版本的Excel中，你可以从“标签或组标题”中找到“开发者”。
点击确定。你可以在标签列表末尾看到开发者标签页。
练习宏动作。当你录制宏时，你的任何点击或动作都会被录下来，所以一个小失误会导致整个动作的失败。你可以多练习几次要做的动作，这样在录制时可以毫不犹豫地完成整个动作，不会出现失误。
点击开发者标签。
点击 录制宏。你可以在命令区中找到它，也可以按下Alt+T+M+R，新建一个宏（只适用于Windows系统）。
给宏命名。命名方法最好简单一些（特别是你要创建多个宏的时候）。
你还可以给宏添加描述，说明这个宏可以实现什么效果。
点击快捷键区域。你可以给宏添加键盘快捷键，这样可以轻松运行它，不过这不是必须的。
按下Shift和一个字母。这样可以创建一个“Ctrl+Shift+字母”的快捷键组合，方便启用宏。
在Mac上，键盘快捷键的组合是“Opt+Command+字母”。
点击保存宏。
选择保存宏的位置。如果你只是在当前工作表中使用这个宏，选择“当前工作簿”；如果你希望在任意工作表中使用，选择“个人宏工作簿”。
点击确定。现在，宏开始录制了。
开始执行你要录制的命令。现在，你做的任何动作都会被录制并记录在宏里。比如，如果你想计算A2和B2的总和，并记录在C7中，那么以后每次运行宏都会计算A2和B2的总和，然后放到C7中。
宏可以很复杂，你还可以通过它启用其它Office程序。开始录制后，你在Excel中的任何操作都会添加到宏中。
当你执行完后，点击停止录制。点击之后，宏会停止录制，并保存起来。
将文件保存成启用宏的格式。为了保存你的宏，你需要将工作簿保存成可以启用宏的特殊Excel格式：
点击“文件”菜单，选择“保存”。
在文件名下方，点击“文件格式”菜单。
选择“启用宏的Excel工作簿”。
打开包含了宏的工作簿。如果你在运行宏之前已经关闭了文件，程序会提示你启用内容。
点击启用内容。当你打开一个包含宏的工作簿时，Excel数据表格会弹出安全警告，里面就有该选项。由于这是你的私人文档，所以你可以信任它，但是打开其它来源的文件时，需要格外小心。
按下宏的快捷键。当你要使用宏时，可以按下你设置的快捷键快速运行它。
在开发者标签页中，点击宏按钮。当前工作簿中所有可用宏都会显示出来。
点击你要运行的宏。
点击运行按钮。你的宏会在当前或选中的单元格中运行。
查看宏的代码。如果你想了解宏的运行方法，可以打开你创建的宏，并且对它进行修改：
在开发者标签页中，点击“宏”按钮。
点击你想查看的宏。
点击“编辑”按钮。
在VB命令编辑窗口中，查看宏代码。
本页面已经被访问过24,274次。如何在excel中编写宏读取
全部答案（共1个回答）
Dim SqlStr, str As StringDim EndRow As Integer'str = CurDir(ThisWorkbook.FullName) 表示当前文件夹，你可以选择用str = "c:\1.mdb" ' 你数据库的路径Dim Con As New ADODB.ConnectionOn Error GoTo err:Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & str
SqlStr = "" '里面是sql语句
Con.Execute SqlStrCon.CloseMsgBox "导入成功"Exit Suberr:
MsgBox "数据连接错误" End Sub
在设置里就有 祝你好运一生！点击好评哦！
第一步：建立每人一个的工作表并取名子；
第二步：右键点A18单元格→超链接→本文档中的位置→点张三→要显示的文字→张三→确定。
若人员多的情况下，...
一般在工具栏的左右对齐键的旁边一个大写←a→字 ；
选定你要合并的单元格 在右键下拉菜单中选“设置单元格格式”在“对齐”项中选“合并单元格” 。
数据库还是用ACCASS制作为好，就是要用EXCEL制作，请见如下示例：
EXCEL简易库存数据库：
1、1日末，建立左表，在A:E列输入数据，在F和G列输...
文件-选项-信任心-信任心设置-宏设置
胎心仪不会用，怎么也找不到，一会有一会没有的。数字还乱蹦。
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区