在EXCEL表的同一行单元格中，有题目，有分析，有答案，有来源，但它们分布在不同的单元格中，

　　我想从众多的试题中，找出同一章节的题目，并将该题的相关内容放置到同一单元格中，以便复制到WORD中进行排版。其代码如下：

　　Sub 试题集2()

　　Dim ShtCase As Worksheet

　　Set ShtCase = Worksheets("05案例集") '声明工作表变量

　　Dim N As Integer

　　N = ShtCase.Range("A65536").End(xlUp).Row '确定工作表非空行数

　　Dim CaseFl As Variant

　　CaseFl = InputBox("请复制资料来源名称", "飞扬财务：专注于财务领域的应用与培训！") '定义分类的依据

　　For N1 = 2 To N Step 1

　　If Cells(N1, 3) = CaseFl Then

　　Worksheets("07案例分类").Range("A" & N1 - 1) = "NO. " & N1 - 1 & "  " & Cells(N1, 4) & Chr(10) & "阅读思考" & Chr(10) & Cells(N1, 1) & Chr(10) & "原理剖析" & Chr(10) & Cells(N1, 2).Formula '有计算过程的，显示公式

　　End If

　　Next

　　End Sub

　　其效果如下：

　　"NO. 1

　　阅读思考

　　产品成本与期间费用区分的主要依据在于（ ）。

　　原理剖析

　　《企业产品成本核算制度（试行）》

　　第五条 企业应当根据所发生的有关费用能否归属于使产品达到目前场所和状态的原则，正确区分产品成本和期间费用。"

　　"NO. 2

　　阅读思考

　　车间组织管理生产活动发生的间接费用一般应当（ ）。

　　原理剖析

　　《企业产品成本核算制度（试行）》

　　第三条 本制度所称的产品，是指企业日常生产经营活动中持有以备出售的产成品、商品、提供的劳务或服务。

　　本制度所称的产品成本，是指企业在生产产品过程中所发生的材料费用、职工薪酬等，以及不能直接计入而按一定标准分配计入的各种间接费用。"

　　"NO. 3

　　阅读思考

　　对一般行业而言，下列不应当计入产品成本的项目是（ ）。

　　原理剖析

　　销售费用"

　　"NO. 4

　　阅读思考

　　根据产品成本核算制度规定，对于未明确规定适用本制度的行业，应当（ ）。

　　原理剖析

　　《企业产品成本核算制度（试行）》

　　第四十九条 除本制度已明确规定的以外，其他行业企业应当比照以上类似行业的企业对产品成本进行归集、分配和结转。"