按需要统计生成一个TXT

tangyj

求各位大佬帮修改一下代码
b1表：按班级统计面积产量，生成：
一班面积****，产量***。
二班面积****，产量***。
三班面积****，产量***。
四班面积****，产量***。
五班面积****，产量***。
六班面积****，产量***。
七班面积****，产量***。
b2表：按种植种类统计面积，代码已实现

最终生成一个TXT文件

对于b1表我的思路是：
1、如果面积和产量都没有，就不写出
2、如果有面积，没有产量，就写出“**班面积****公顷；无产量。”
3、如果面积和产量都有，就写出“**班面积****公顷；产量***公斤。


生成格式如下：
b1表

一班面积0.5000公顷,产量25公斤。
二班面积0.6000公顷,产量28公斤。
三班面积0.4000公顷,产量17公斤。
六班面积0.0054公顷,无产量。
七班面积1.2200公顷,产量35公斤。

b2表
大白菜面积0.2150公顷。
黄瓜面积0.4450公顷。
南瓜面积0.2300公顷。
羽衣甘蓝面积0.2350公顷。
生菜面积0.4850公顷。
芹菜面积0.2500公顷。
油麦菜面积0.2550公顷。
茼蒿面积0.2600公顷。
苋菜面积0.3504公顷。

liulang0808

讲b1表格内容输出到文本文件内，不知道理解对不对的

3190496160

Sub 生成txt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim ar As Variant
Dim br()
ar = Range("a4:r7")
mc = ActiveSheet.Name
ReDim br(1 To 7, 1 To 1)
For j = 5 To UBound(ar, 2) - 1 Step 2
    If ar(1, j) <> "" Then
        n = n + 1
        If ar(4, j) = "" Then ar(4, j) = 0
        br(n, 1) = ar(1, j) & ar(2, j) & ar(4, j) & "," & ar(2, j + 1) & ar(4, j + 1)
    End If
Next j
Application.SheetsInNewWorkbook = 1
Set wb = Workbooks.Add
With wb.Worksheets(1)
    .[a1].Resize(n, 1) = br
End With
wb.SaveAs Filename:=ThisWorkbook.Path & "\" & mc & ".txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
wb.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "ok!"
End Sub

3190496160

参考
TEST.rar (38.49 KB, 下载次数: 10)

2024-9-25 09:45 上传

点击文件名下载附件

tangyj

liulang0808 发表于 2024-9-25 09:33
讲b1表格内容输出到文本文件内，不知道理解对不对的

大佬您好，您的代码对B1是对的，我需要把b1、b2表的一起写到txt中，四班、五班没有产量，是不用写出的

tangyj

3190496160 发表于 2024-9-25 09:45
参考

大佬您好，运行您的代码生成：
"一班面积0.5,产量25"
"二班面积0.6,产量28"
"三班面积0.4,产量17"
"四班面积0,产量"
"五班面积0,产量"
"六班面积0.0054,产量"
"七班面积1.22,产量35"

我的思路是生成
"一班面积0.5,产量25"
"二班面积0.6,产量28"
"三班面积0.4,产量17"
"六班面积0.0054,无产量"
"七班面积1.22,产量35"

demonimissyou

tangyj 发表于 2024-9-25 09:53
大佬您好，运行您的代码生成：
"一班面积0.5,产量25"
"二班面积0.6,产量28"

源代码+if条件判断就行了

liulang0808

tangyj 发表于 2024-9-25 09:45
大佬您好，您的代码对B1是对的，我需要把b1、b2表的一起写到txt中，四班、五班没有产量，是不用写出的

结合附件将b2表格怎么处理描述清楚，最后输出结果怎样的
或者楼主可以用已经提供的代码自己根据需求整合的

3190496160

tangyj 发表于 2024-9-25 09:53
大佬您好，运行您的代码生成：
"一班面积0.5,产量25"
"二班面积0.6,产量28"

你既然能够捣鼓代码，自己加个条件判断不就行了吗

3190496160