求高人帮我修改此诗

高人，帮我看一下这个该如何改~

不太清楚你要修改的具体内容，但我把昨天的代码修改得更加直观一点，你可以参考代码中的数据区域范围（第7、8、11、12、17、21、27、30行），自行修改所希望参与计算的区域：
Private Sub CommandButton1_Click()Dim k%, x%, p%, y%, w%Dim sarr1, sarr2Application.ScreenUpdating = Falsep = 0x = Sheets("sheet1").[a65536].End(xlUp).Rowsarr1 = Sheets("sheet1").Range("B1:G21").Offset(x - 21, 0)Sheets("Sheet2").Range("B2:G21").Value = sarr1For k = 2 To x - 22 sarr2 = Sheets("sheet1").Range("B1:G22").Offset(x - k - 22, 0) Sheets("Sheet2").Range("A2:G22").Offset(0, 7 + p).Value = sarr2 For Z = 2 To 21 y = 0 For v = 1 To 6 w = Application.WorksheetFunction.CountIf(Sheets("sheet2").Range("B2:G2").Offset(Z - 2, 0), Sheets("Sheet2").Range("G2").Offset(Z - 2, v + p).Value) y = y + w Next v With Sheets("Sheet2").Range("N2").offset(Z - 2, p) .Value = y .Font.ColorIndex = 5 End With Next Z If Application.WorksheetFunction.CountIf(Sheets("sheet2").Range("N2:N21").Offset(0, p), 0) = 0 Then p = p + 7 Else Sheets("Sheet2").Range("H2:N22").Offset(0, p) = "" End IfNext kApplication.ScreenUpdating = TrueEnd Sub

早睡早起身体棒，
日行规律更健康。
戒骄戒躁稳中行，
烟不离手全作荒。

其实我也没看明白你那个应该横看还是竖看。我文学功底也不是太好，只是希望能帮到你。

这诗得横着读还是竖着读？

相关视频

求高人指点诗词,看哪里要修改: 人去花不识,花自空憔悴。相守未及老,凝眸...
用“人去花无语”来形容人离开后，花儿失去了陪伴，变得沉默无言，更加形象生动。“相守未及老”表达的是两人相守的日子还未到老去，便要分别。这种遗憾与不舍，通过“落英终不悔”得以升华，即使花瓣凋零，也不后悔曾经的相守。整体来看，修改后的诗句更加贴近情感表达，意蕴深远，更具诗意。

高人进来帮我改下这首诗
浅语幽含笑，汝心我自知。佳音迟未送，此情为谁痴？情义两难断，爱你亦伤思。若有麒麟意，愿能在此时！浅语

高手!帮我改诗!
第一种：碧水玉关外 春城入柳怀 飞花舞云瀚 月影故人来 第二种：碧水映关外 春城入柳怀 飞花舞云瀚 月影玉人来 改

请帮我改一下这个诗,谢谢!
我心本明镜，---我心本明镜，为伊却蒙尘! ---为伊惹尘埃。这句是有出处的，原文是：何故惹尘埃。也更妥 何管世俗风, ---何顾纷纭议，毅然身心行! ---毅然钟卿睐。睐字与第二句埃字押韵 无心对无情，---无勇续真情，怨何两相思。---怨忿寄相思。无奈称姐弟，---无奈姐弟称，悔恨未...