Sub 答案() Dim y, r, arr1, arr2, C i = 2 Set r = Range("h" & Rows.Count).End(xlUp) j = r.Row arr1 = Range("h2:h" & j) arr2 = Range("i2:i" & j) Do While Range("h" & i) <> "" If arr1(i - 1, 1) = arr2(i - 1, 1) Then C = C + 1 i = i + 1 End If Loop MsgBox C End Sub

经过这件事情我发现其实pe吧的人多是看客，其实一切都与无关，凑热闹而已。他们不会管你好坏，水贴，作品贴的秒沉已经成了习惯。 我们究竟在为他们做

经核实吧主SEVEN_KILLER 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ，无法在建设 dim吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组

Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlapp = CreateObject("Excel.Application") Set xlbook = xlapp.Workbooks.Add xlapp.Visible = False For i = xlapp.Sheets.Count To 2 Step -1 xlapp.Sheets(i).Select xlapp.ActiveWindow.SelectedSheets.Delete Next i xlapp.Sheets(1).Name = "年" For i = 1 To 2 xlapp.Sheets.Add After:=Sheets(Sheets.Count) xlapp.Sheets(Sheets.Count).Name = Trim(Str(i)) Next i xlapp.ActiveSheet.Protect "", DrawingObjects:=True, Contents:=True, Scenarios:=True Set xlsheet = xlbook.Worksheets(1) xlapp

我多久没出现过了...

啦啦啦

本吧为DIM工作室内部吧，会有所有内测存档与基佬材质在此处发布(抢先版)以下是吧规 每人一天两个水贴 不准侮辱人 可以转，不过作者要注明原作者或征求作者同意 欢迎举报小广告id 禁止恐怖、内涵、H类贴，发现的话请到小黑屋做客 如果私人恩怨请私底下解决，发现也是小黑屋做客 禁止发布木马、病毒、流氓软件等恶意程序、含恶意脚本的网站及一切危害或间接危害其他吧友 的内容。 禁止发布木马、病毒、流氓软件等恶意程序、含恶意脚本的网

在我的世界手机版吧看到这里的作品——好崇拜——特此前来入驻——

6、Dim a as Integer Dim b as Integer Dim c as Integer a =1 b=1 For i=1 To 4 c=a+b a=b b=c Next i Print c 运行结果是：_____________________（6分）

@ ☆Timberlake @纳瑞普瑞兹 请以上被艾特到的各位不要慌。。只是为了获取个人资料的链接

打算在故宫（午门）存档完成后开工。本来计划故宫要做12张图，实在没时间所以先做一张午门吧！ 死亡空间:浮空 打算沿用小小苦力怕的《国际空间站》理

怎么没有喜欢色选项

rt

这个活动很给力，小伙伴们不要错过哦！

呵呵呵呵呵，我的作品也被，，，

大家好，我是dim最初的管理者，鸡块，相信各位也都认识我，今天我回到这个久违的家是希望能够让这个地方远离尘埃与纷争，给大家一个愉悦的环境，希望

祝大家圣诞快乐〜

最近看到网上流行晒这个。哈哈萌色差。大家一起来晒晒。 我和老婆的萌色差 说起萌色差，不禁让我联想到最近很火的一部手游《幻想江湖》，也有这个萌色

@依然范海希 等会发图 "巴拉拉能量，草泥马，挽尊魔法" "啪啪啪" 　楼主，精液拿好 　　　 　　　

推荐建筑党： @苦力怕1213801 推荐人：筱攸 审核通过作品： 　　　 　　　　--更多好玩好看的免费精品存档尽在DIM游戏小组官方网站 ωωω.aodim.cn

1.Dim对外保持神秘，就是因为没有信息。

服务器需要人来维护，要求拥有专业的开pm服阅历并且有开pm服成功的经历。

自己做的树，求喷

一一一一 来自Diamond Is Mine Group的成员。

　　　……不知道说什么。但是应该很厉害吧

70关整，中等难度解密

是的我们否认过去，因为那已经是过去。我们期待未来，因为我们能够变得更强！

水

见到别人画的一个3d图真是强大，简直就是一整栋完整建筑的复刻。 问他用的什么软件他说DIM，百度半天没找到此软件，来贴吧求解！ 并热切的希望能学习

此吧需要活跃起来